(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    451347,       9295]
NotebookOptionsPosition[    438601,       8899]
NotebookOutlinePosition[    439042,       8918]
CellTagsIndexPosition[    438999,       8915]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Linkage geometry", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, 3.469451011535277*^9, {3.469451110120501*^9, 
   3.469451116336855*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], ";"}],
  FormatType->StandardForm,
  FontSize->12]], "Input"],

Cell["Input angle as a function of output angle", "Text",
 CellChangeTimes->{{3.4694512940504*^9, 3.469451302385456*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "\[CurlyPhi]_", "]"}], ":=", " ", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["L3", "2"], "+", 
    SuperscriptBox["L4", "2"], "-", 
    RowBox[{"2", " ", "L3", " ", "L4", " ", 
     RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}]}]}]]}]], "Input",
 CellChangeTimes->{{3.468875159861183*^9, 3.468875190768778*^9}, {
  3.468875222807405*^9, 3.468875255225543*^9}, {3.468875388961007*^9, 
  3.4688754080422*^9}, {3.468875474798994*^9, 3.468875504381837*^9}, {
  3.468875676258224*^9, 3.468875676463942*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "[", "\[CurlyPhi]_", "]"}], ":=", 
  RowBox[{"ArcCos", "[", 
   FractionBox[
    RowBox[{
     SuperscriptBox["L2", "2"], "+", 
     SuperscriptBox["L1", "2"], " ", "-", 
     SuperscriptBox[
      RowBox[{"L", "[", "\[CurlyPhi]", "]"}], "2"]}], 
    RowBox[{"2", " ", "L1", " ", "L2"}]], "]"}]}]], "Input",
 CellChangeTimes->{{3.468875267635433*^9, 3.468875327389202*^9}, {
  3.468875416883675*^9, 3.468875419202394*^9}, {3.468875511715271*^9, 
  3.468875535552972*^9}, {3.4688755878836184`*^9, 3.468875600660446*^9}, {
  3.468875678457074*^9, 3.4688756786321077`*^9}}],

Cell["\<\
KT is equal to the ratio of output angle change to input angle change \
\>", "Text",
 CellChangeTimes->{{3.469451450340621*^9, 3.469451546461952*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"KT", "[", "\[CurlyPhi]_", "]"}], ":=", 
  RowBox[{"1", "/", 
   RowBox[{
    RowBox[{"\[Theta]", "'"}], "[", "\[CurlyPhi]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4688756399148197`*^9, 3.468875657559906*^9}, {
  3.468875704714861*^9, 3.4688757182339067`*^9}, {3.468875864339601*^9, 
  3.468875884528388*^9}, {3.46945135731707*^9, 3.4694514098635798`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"KT", "[", "\[CurlyPhi]", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.469451397824538*^9, 3.4694514251759567`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"L1", " ", "L2", " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["L1", "2"], "+", 
         SuperscriptBox["L2", "2"], "-", 
         SuperscriptBox["L3", "2"], "-", 
         SuperscriptBox["L4", "2"], "+", 
         RowBox[{"2", " ", "L3", " ", "L4", " ", 
          RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}]}]}], ")"}], "2"], 
      RowBox[{"4", " ", 
       SuperscriptBox["L1", "2"], " ", 
       SuperscriptBox["L2", "2"]}]]}]], " ", 
   RowBox[{"Csc", "[", "\[CurlyPhi]", "]"}]}], 
  RowBox[{"L3", " ", "L4"}]]], "Output",
 CellChangeTimes->{{3.469451399738834*^9, 3.469451425748104*^9}, 
   3.469451824097301*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"KT", "[", 
   RowBox[{"\[Pi]", "/", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.469451563245071*^9, 3.469451564679365*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"L1", " ", "L2", " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["L1", "2"], "+", 
         SuperscriptBox["L2", "2"], "-", 
         SuperscriptBox["L3", "2"], "-", 
         SuperscriptBox["L4", "2"]}], ")"}], "2"], 
      RowBox[{"4", " ", 
       SuperscriptBox["L1", "2"], " ", 
       SuperscriptBox["L2", "2"]}]]}]]}], 
  RowBox[{"L3", " ", "L4"}]]], "Output",
 CellChangeTimes->{3.469451565709178*^9, 3.4694518245265923`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]", "[", "\[CurlyPhi]", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"L1", "\[Rule]", "1"}], ",", 
        RowBox[{"L2", "\[Rule]", ".75"}], ",", 
        RowBox[{"L3", "\[Rule]", ".2"}], ",", 
        RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]", "[", "\[CurlyPhi]", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"L1", "\[Rule]", "1"}], ",", 
        RowBox[{"L2", "\[Rule]", ".75"}], ",", 
        RowBox[{"L3", "\[Rule]", ".1"}], ",", 
        RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.469451622873701*^9, 3.4694517282612057`*^9}, {
  3.469451956630506*^9, 3.469451958076563*^9}, {3.4694519998855963`*^9, 
  3.469452109414011*^9}, {3.4694521952925777`*^9, 3.4694521954426126`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwd1Hc8le//B3Dkc859jEoho8yGEAoh9L5CRRokymqohEpoKKtUopSMkmSX
kTKz6lgJkZOvOGQ0JBrqPva5rfhd5/fX9Xg+Htd+v65L0eXM3uMCfHx8i/j5
+Hjtgiqh5u+63puzmh/GF4qRsOp3paFczB4orPzO4Xk6X/NYV/QhCH3L/PMC
u4AL7WK5JyD2vWJUMfaAuNtkSfQZmEiT+FqKfVu6QTSXeRYO0B+0v8LOUHFK
5sv1BfGs9HOV2NV6w1o2Kf6grLClvAa7e9v1mvToyyA76fb8LW89VRHVgJpg
0M9YvvU9duiGDp905jWwj3C80YYtvimF2VwUArP8q7y6sVO3eAhO5oSCKboo
0IetYaGzSzHzJoyf32c8iM20mru/IyUcfCvKFMaw2w9Fr0mMvgtVdyW+0Zbg
82hr6H+vi4QbY8KVYti+ejGffGuiYKXsDdMV2ILgvCqVGQNjiXzmG7HfmdQ0
6pbdA0uYqzfFjtq2xvNd0X1o0vLjWGPL7R4pGct5APn1PzZ6Yfdb2zmGZceB
jxx7/xXsZ7bM+eWZD0FinYFiFLa+c4j5tpRHMCJ8NKcIe+8p6e646GTgLJvL
XrCUBBF9qIrdngKCQ96LpLGHX3qLfatLAejeuVwTu6Sio/h8TSrEgYamM7Zp
XcpcEvMxXArZb/Aae/X2NqvfBk8guaK8twdbqPG/x9plT6Cp9awWhd3C8tje
UJQOQwlNDZriJDizdSJHcjKBRTZ+ysJGdif6DNWz4HqTa30D9srOhzo3srMg
uNzwwG/swZ65TpnMp7An7vI5dQl8f98bFM1SnsHdS/S7r7CjRp1exEbnQZJi
kjlXkoQ7EvFG1aL5wBfEt2vlMhJaC0Lkdffmg9OyJkkbbMdBpwG5nnwQmLsy
XYjt6SjsPfq3ALQYNfwBUiTcM3YLe7i4CCb3djO0ZUjo6rI5udC2CDaalB85
jS13AXZfe1gE/cSjoCzszFxJ8dNKxXCxU4uuKEvCK/m6ZKRTAhZa/Xtll5Pw
lV+p9Of+MghP2vVeRw6fL0k03imhDJ5dNfb2x3bbNBXwobcMyn+ld9Vgj/q0
mDDdX4LuayZlI4/z0R/UHOH/CuR/c09cViBBtb5nQDe5HN5Z6SyeUSLBsG6H
kMnZaqjVFdYLUSFhMTvjf3ox1XCru1HgC3Z/n8D9dS+qYbtOzkW9tSRE8DHl
pceqge36yuUvdp+hmu6wz2uYdWnXOKhGQlih8OEknxo4bktLOqJBQkcyq3ja
uxZKufa3f+rgfOWq+A9H1ULVkHKYrS4JVyquox8FtfDlXaF6LfbaHqOmDyO1
oHSGc+bxRhICJHN6s7zrYPel65/d9UlQvnNHeL93PQStX7tD0ogEL7/dR154
NYDH2QRR0pSEHZ5GWURkA1yfZJ4/bYb7u6gOOec1wE9h/yAOdocFLZDgNIBF
aqr36FYSjKUr45xPNkKmk9hnfnOcv7J1LXTXd5C9aVf55p0kpE+IgJMjC7Qv
XtfTsiUh6Pd0SIEfC95IKsfVYh/4/ItFi2fBrHDUA3s7/B7qah0KOlnQ1J7g
E7KfBJ97ARdodu9B5mrFg357nFftvzn5Vs3gcsI4svogCafLjkcIKLeAWu/3
txw33v9grcCv0wIEe2Jtujt+T11GhfNmLdBVecnMyYOEczNLO2ZdW0D9WFAa
6yQJfptrVlDZLTD1kcZX4knCjVq5nD8bPkCMp9a6Z+dISGn52MQ2aQUf64Tn
csEksH9ZMDJd2FDvptG/MoGEoYcqW6/5sOFOxULPKWwhS3rwoats6HPWjWlO
xPvNqZ1clsaG2HX/cv2Scf284VfYNza8zWGodqeRcHVa563H4XbYdCdQpuQp
CZoiCiEaBzugxkRv67dSEm5pcvlK7DuhIuJ33Hw7Cd5qDfer0z/BugbZGwby
HJg+ejL3s2cvzKQdem/qzQGXCjurSNc+iHDn93aq58DREXZ1dVg/XEi6t/OE
2hDc1io9k3HjB8hX6QW4Rg2BQHWp3nW/X9CQH3iYPjsEYqqWzV/jBuEY6pcy
NRwG82STx8PRf2HVbfEXu3yHYdkQa9vlUg7oir3p3sAchvi3r/gXuA/DLYFT
7g58I2C0Ysu8wrERyJPsU683GcF1WdwfeG4UZPuPrYu9PQI5WUvcin3GoOmf
HXS2jkDAF+c2tRvjYF3jWK6gMAreRvqWSfcmIEBK5ujHU6MwnWzm8ieSC277
1it9KRqFFq/4w75pFMhElgSsWTAGBtuV5j6nTsJuKbbfmp1j0LjVIAslTIHJ
pxnHIzFjkF7w0KDv2TTscNNCc1/HQEJZ3ePg0xnQ2Oh0KWn1OLTyE1ely2fB
eMmR0mHvcSgmzma0NP4DG5Nu1cOvxkFdYrGHS90c6FSGazrMjsNQBFdcu2Me
OKmNg3+2TIByaKjmGQ8+9PL2V/GGKxPQ59DTbfKTD2kJ8E1B+QSYD7RNFXvy
o91em7irpifgos9xN0mSH9XYVYwbrufC7pJHOyQvCKBPMwGRbHcucGY9AhZw
BZDoeHbI3UdcSP0YXOR5dgE6J7xFaVMjF6bdjA9fmlmAngb4TSpQXFjxL8rR
208QpQsRPSfkKPixPfwdIfgfWrleqOevGQVvVrNALvw/dHXJA71gVwo8iAxB
RQYNFVqmypLBFDQJhN0xFaahvhjF+45XKVD/5y7pKkpDK28N1DViD42sU3km
RkMmH2V3pV+j4FxPsaWuDA093+03ciCEgsDcumgLNRoy92oJLwyjIHLfgILP
Lhq6+O9gh8ZdCkpTVhq/iaIhVVJo945HFKycN/N/HUNDdl/6tqdgRzoff1l1
n4ZcDQf4uNhuMhm65Q9piJNlm5+SgOt8b41GcSoNtas4C44lUhAQqiqfWUBD
DmYfAsJTKDDx1OIP/0BDfhWHIsLTKchlWcHNNhpqPbLnWBe2rJp3YGg7DSV8
aJtcnUHB+M+CqWtdNPRu703n19jpR7RHA77R0EsXNYmxTAoI243fPUdo6PCE
v8GObAqaDY3q9orRkcidKP23uRTcKjs/s20pHV1W5fcXzqNgu27eekMJOjrc
uyhoD3a1hlKSsjQd9cXO1HVgv1AkfMcV6Mhl6rFTXz4FcXS2SqwWHcWrCaSR
hRQcbTt5u2sPHS15OXGWXUKBglV6zXtrOpJYtO3N4lIKPrG+TL62oaM10rWt
O7Ht6q2PZ+/H4wWNNtRim7/U2+x/iI7UpatG88oo0EheMLz8DB2ZZRr5+r+i
YNLjkc3hCDoaG5C/2FdBwV2/x/TLkXSkUBimK1tJwepbz5iJ0XTUIeuUaYNt
+5Sp3BNLR0+X6mS9wS782TNmm0xHO8tM5FKqKDh1bPk9y3w6khljdu54TUGv
cyJ7Yysd9beuOXOilgLf0+lhtmw6emKp+CIWe2FgjtG5DjrasET6WR22cULF
k4JuOorYTpUo1VEQ3/35nPp3OhpPkt7chb1vv5yE0jgdCdw5TNd/S0GDVbKt
qCSBhNbv8SlvxPmtHaikSxGoabTy+VdsUX11FQEZAok7vHgi8I6CvfIvp7kr
CMRYpfR+O3YP2Zrcu4pAwq29883YnFu0wRe6BNogof+npQnnb26nTa4egUoO
Cf8bwtb2iSnPMiCQn85W1kIWBRftFe4mGhNotd9AmiW2gMomndCtBHLTy9Kq
wZaoOx3kYEug8KFqVtp7Csr0i37u20+g3GMbiiqwHZ5PW+2xJ9CjxcMHOrGT
YkKVzZwJFD1r0S3STIGKS2rDuuMESgndXe6DbTTPXsJ/nkBG4/az6/9HwRcf
2YCZCwQaauwtNccO/nFkYOIigep3JWodwq5/zykdDCBQoUmhfTj2ngTCmX2d
QGaDKrd6sV0MjDIz7xFoetT4aFALBV/BOoIVS6BFh6QDo7GdtrmeH4kjED3D
1TwD284m0tQwkUDxftZjLOwdp/u/NqcT6NNBs3jJDxS8PTtVP5ZJoDeJt0AF
28xvYa5UNoEOPNePNcDeHKof4JKL14t9u98Re0PqbSluCYEmnaPUHmHnZabO
y7zE/Qu4jtnY6rklP4BJIC0ZpvFL7NXM3qKbVQTaoe0s0YEt065jvaKBQC49
f8RFWil40GOhb/KOQN2imi1S2OJ9B+VPsPD+/jYarcJeOBRG5rcQaPPhBarG
2AKMzzfNugjUK3Zmnzv25UWjXu49BDK+ZB9/FntWgn4g4jOBqs/fjwrE5iqt
X935jUDvbszHRGKfXbtN9N93AjXsU09+iD2s6Tiu+APPp5rlmIY9aBRSc3KQ
QPYJt34VYp8wjX8a+ZdAXrLDZa+w+y3yIos5BKJ5pG2qwf5i13VwfpRAqr5/
rFuwHZ05W1dOECjbNPhnB3bn0QXrLCgC3Z45ovEZu9Vr3Uz0DIFcrwm0/MLe
42vSV/qPQJHhr1U52KzA/Y2f5nFehxo3jmFbXD+Vzy/AQF4HZMcp7PpbwQ9W
CzLQf+eLXWaxTaNigyxpDCQ19eAqXxv+rx48O+5FMFBjYo2NILZxUvXO+0IM
dFNRt4OO/epJu/YrEQYSMh9iCGPrPRuU+bqQgXZ2D3NEsYsK5vkFxRgoJsMg
ZDH2+jLx3ypLGej0lUbWEuzcyrUtuyQYqBCl1Iljq9VtLvVZxkCX6yrOSGJn
NdkkPZBmIKNRxaZl2Kta3ULKZRkoPo/1UQo7rTPw1LcVDBT5p+K+NLb6jem2
EWwZrk48zyXavoYCcgyUyhefxHNThJeQMnaGhEYmz+NmR7OOYYdBUCnPQaNf
F53HnrI4zuSZSHHyDcF23bepiucVM7bbMrC13XPred5WYN7/E/tJdCWb55aD
dZaT2FSCRCfPDiImLwh5Btqa6dDD85kThlfXYncwc7/xHLdCQ+Ekdn1/EMmz
UlN2qD82xdk6zPPzi2uGwrFXTk2P8vy6TaHyObaPqOYkz4M3lzpxsD/qVvHL
YJ/Ti3wzhz0A3AU8z/WLqC1SYCCOhSyN56WINq2JPeKsKcRzEnn1CML+e0JO
hGeVR/MNVtjfvWdEeTbiTj7wxn4dclmM5/rH5+eDsbPvrl7Ks5X1qGs09u2H
THGejz//o/sC2ywnbxnPw/ZuiW+wpUoXSvPsRx8QZGP/rHaU4TnC5UvbOPYF
dtVyntMqPqZJKDLQ6M8eOZ5LpT54b8R2mMlT4Jl19h3aj52z0EiJ597mN4su
Yv9VvKLMMxFSkvMSW91caxXP6w2fWs5gy3pW/7//D+xYLJk=
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV1Hk01VsUB3BT9/4I5UnvUYZmGZLwIrRPyJCEDA1IqWRKhkoZGjxTKslM
mZIxROYhSRSRhDxDIqF45BquDMXb96+zPmudtfc+a3332WBz4fBZDjY2Njo7
Gxvr5HzB0/xVyXVv+EON9RfKGLBlpEpVLNwQbnz0kGN5IU/uTFeYNTTKrbVn
OX8WPgrkngO2dNEGlofW2M0Vh12AUoUQQxf0HeF6vtwKdwhrPPeL5TRJy0S2
XA/YcyrrvSu6ejdjp0mSF5wcNGtwQ3dr+9Wkhl2H2n0OI+6sflK8Ut41N2H7
6W9yl9CBuzrcUiv+gVNy7x5eRq/Zk1TRXOgPGsHrdl5BJ+9z4JrLCYQ809aR
q+gdeooGG9JvQZTTZIMXusJoKfJA0m34nn2lxQf90TpsW3zYPfjI+cLIl/Ue
hR3KX+tC4dZLn7d+aI/d4Z88au5DLzPFIRDNBVZbkivCYXFii9hd9FuNmgal
0giQ2X9TPhR9X3ub89vCSHgjp+kYjhY7NFk8nRMN7q/mjePQg8bmFkFZMaA0
OL4Uj35iVrG8Pj0WGm7ptCajla38dbWTHoDCLqmxTPRhJ+HumLBEWLGQMlaB
5lWGF1E6STB9pKKpGs0ocxX4UpcEFreV2urQxc87ii7VJEPGgJFJC1qzLmkp
oSIF+Kr+lPiG3qrTZjSi8hgO6uxRGEfzNKxIUSh9DKoqlU7T6JYmB536wlQI
sft0mK2cAVbtiqGTOemg1HD9v3VoYn5uQFUmAz7cuCe/Cb25M1YxICsDVngs
xEuhR3uWOkXSM2HhQ9+ICtrja/0GraQnsPHGvwbH0fenLAuiwp7C0uLo/kfo
u0JxatV8edDeavEqG92a7y+udDgPhhvbz5egLUYth8R68oBDs0fvHdrZYqXr
1Fg+NCiKiS2iI9TtgmJXF8IL3ZC/rSsY0NVl4shvVgjqp7j8nNBil+HQP7GF
0K7munQVnZ67ds35jUWw64iUZyS6XLwukSgWg+fo7J1mdB/7xpJvR0ohtb5V
TK8S35fAF2f5sBQkCoVVj6Ht9sx7f+gvhdDpfX726Cm3Fo0K+zLI8NsZH4zm
GrzWHOJVDlmZFiPNaKnXPUNKiZUgERw8Yv2cAap1B3g03Kvh6Bovn5QqBqxu
T3u/O7wathWue1mCHhzgiJQtqIat/jnSTegQtgpx4elq4NNNuMRED6hKKzHc
XsIhv4BPei8YEPRs5ckEtxoIujA/M4/uSGwqWnCtBXdTmpbHS8xXrqQX434t
yIpdtAlF33juR4bza0GsLDY9E729R63xw2QtNDpypX1Ce6/N6c9wrYMyC3F3
rRoGbLp7d+UR19dwkyQcXPeKAS6eh04VuNQDr0HZ+FAtAw44q2VQofUgtddY
l7MO79tITVg9rQd9jd43EugOPZoP9aMeHGPrlSzR6sJVMVaODaDim9PUjuYp
lW2h274Fub+fDja9ZkAqkxcsLZpwbxayO+sZcG1kwT/fswm4Lt9LXkAf7f3e
RItrggrJpvL1DbgPdbXH8zubQPObvMUptFuE92Wa+TsoVrc1GUMThbGcPKNm
KFm3RZy7kQHnS8+GcGxqgYxsLoET71j/g7EEu2ILuC3UdQeiGV1qz5a1WkCy
ad/7fPTFRcGOX7YtsHXzcWVaMwM899aI/sxqgc2zj3ny0QG1Yjn/7foANhHG
2fwtDEhq+bexXaMVhi3L60daGdD+XY873aYdlL19r4t1MWAiVnL/P27tMBf5
5qghmkefftPatx2siyzNb6BJTu3cn4/aYSW3XdUA+okrfA/60g7Tt2L3ZXYz
wHdB8Y3DyY/wwEFQQP0TA+R4Jfx3nOgAyRiFsut9DAiWm2UrPtYJpl+FDroM
M8BVuj6yOvUT3JxfWWT5E//T0465vc79cLKiT86OZxJsnpsbhdoOQHH8rjYi
NgmnJ9urq4MGwc1X/P2E0iTc2VlyIS1gGBaCuZ3mDCaBo7pkt5/nd+g2lePf
c24SBKT0m/tiRkE4b3ulrd8k6CZqpDDCxsCeP3/79uRJ+HOiSft6yQ/op1T2
976chLg35eyc9gyYDxpXtvo6CWqi+5YlzkzCnvIh3mLOKZDuXz3oc3EKxK7q
7uzcNgU5GX/YFblNQ3baLgH7A1Pg/dmqTTpgBnwFM/3jXabAVU1ZPyGCCXX5
2polUVOwkKhl81/oLHxxLTqfUj4FLS5xJz0e/QSh6Q1sHV+mQEVn41Jv8hx8
SgkY8aNNQ8N+lQzycB7Enz7Id5KahtT8WJWBJwvgEBr3U9J4GoQ2yTicyFyE
u/scmmcvTkMrO+UrXPkLWmVH9NUfTEMR5Z7W0vAbqtd/CJeongYZodUONnVL
IGh+SaDhyzRMhMyuUehYhvryq5dMV8zApsBAuQsObIQnt7HMe8sMDBzv6db4
xkZ0vff7MjRnQHeobb7ImZ1YBmY6Zp6egStuZ+3WjrOTx90D/CPXZ+BQ8YMD
ay9zEGP1y/pTD2fgxy8Hb85ZDvKH+Jsqj+IZSP73ZqGzOyfRG9PS+v5uBhbs
1E9eXeQkNS7jq64MzYDo7/sWrp5c5POWUdnk+RkY1rn9luJaQQzu6BvY8jHh
1VbcvdsriESeS3GyGBMcqDSuDdw0ciTsoX+BDBMaOYLuaq6kkbWdMgpjaJnf
9mtt+Wjkmsmpis2yTJiYlJV8IkAj65wzLCLRF3uK9JVEaCTg4IGeizuY4JNb
F6YnTSNxJ563yexkQqjpkISbAY0E5gyG3lBgQknSZvVX92lk3lfrRrEKEzYv
a3m9DKeRZBuJuAF0qNXZsheRNOLFVhDGv4cJdiJpSpWx2P/xlLgtWiRi246i
ZBopV4rOElRlgneglHh6Po287zp6zU6NCRrOO9lvf6CRV5yqq+b3MiG3yQhu
tdHIZw6jRQlgwjppV5/AjzSysbKlThc98y1//p8uGmH35J2NRqeeUpjy/kIj
6uZyrxQJEyizv786T2I9kz38dvuY0KyqVndYgE5iNQOOFmkyIbj00qK2IJ3I
P/Q/3onWUXoqrypEJ3M3llQX0dU7NiZsEqYTdzezeKLFhIINlMeMBJ3E/Tjd
1YCOobdLRu2kE812O6WO/Uw43eZ4p8uQTs74x7l06DBBwii15p0xnSitOXiC
if7U9HnupQmdRCftlV6jywTz18Zns47QSZ1Qv40xWrds914vazq5HjKs+xa9
I5GTsf4CnRicjflRpMeEOYcHJidD6CTnTnLkRX0m3PNMoV8PpZPVbVK599Fb
g59UxIfRCTDGE3PRZpkVm3qi6CTAWmTVd/Szbz3TZol0EuXcte7YQSY4nVkf
oZ9HJ4Eap8cVDJjQbxXf/ncrnawxrjrTdIgJHudTg8za6eSg4dbkQTS/T47a
xQ466TUPK/6FVn/4/HF+N50onndxkjFkQlx370WZr3QylivCFYw2PSImtHGG
Tlqt+76oGzGh3ijRjG8tRWw/2RsEGWN+a4eq6H9RZK2qt1Ucmk9ZRpJDhCJm
UZf1s9GHxcsWZkUpEmEs/vI9ume8NbF/Czpni6DQYSb8CKaNFihRZGfZLuNY
dOjSQZPc3RSpDzwMmWgFt/DKDBWKrLDXX1mGvnJM4l68OkUKR2vVOtEcknsU
A/dTRIP+YoWQCROE6s5fO25Gkf6CtXJB6FLlwm+mRyhi6HR6IRJ9PHvByPAY
RV7t8E5JQSeEB27SsqKI8wf+e1VoSZvketmzFDnOTGmcQqstt//Bfokioxsm
ukxNmfDZbZ334mWKhBxNu3kSfXP41BDzCkUS3MToTujX736UjHpT5FjDoSe+
aMOHlFW7H0WoooSjuWgbFbX09Aic19RDexndB8YhTVEUWeleHcFtxgRLbdtL
kzEU6b5bUy6INjcJ1VSNp8iY8MTdbegD5wf7mlMpcqv5XyMD9Bv3+dfT6RT5
/rvD0hyt5cmf+1cWRVrlg4k1em+gsrdNLkWErXjuuaB3Jd/5a7YY6+vb6N5H
P01PXhYpo0jXn1MCsWiZ3OJhqKBIVbR8QRJ6a0V/4a0XFHGtfO79FC3yUdFY
tJ4iNKff0o3o6B49ZY23FLkR/fvZB/SagRPi55ooIvYuU6ATzT8RNJ7XQhGX
Ai7zQTQHd+8trS6K6AWWLSygr6+acrHvoYgb7ypgM2fCLyH60ZBeijBi+CxW
oGc3ym/t/EKRP65wiaxCu2/X5vv9lSKHt/+qFEQz5CxmNgxjv8QHu/9Cj6r5
1ziOUkTnWUuBBPqcZlxm6BhFxF+dLdqMHtR7Glr0gyI+15NDJNGfzbtOLE9R
5PLSyno5tIXVj/2bmTiv3h5JBXTnaU5ZvZ8UyTLiP/k3utVFdjFsEfP9Ms1c
DW3ooTFQ8hvzWe8gBOgmnyMNn5Ypcqmu7ck+tJ6fUx47Bzd5F/JFWAv9Ovhm
9FYubtK8GG6tjda8H3VNn8ZNuodHvXXR1dFPzrpQ3GRUZtj1AFo9ofpgJA83
icrx33sQXf74o0I5LzcR1G8YMEDvfjIq0sfPTeRH804Yogvzl9m5BLiJtZva
MyO0fOmaEUlBbvLonWOvMTq3anuLgRD6+97+w2jpur0lbn+inxWVm6AzGk0S
ooW5yTXRFidT9JZWO//KddzkmWjILMuPOn2cvohyE7OsiSNmaJmAhbZJ9K48
leMsFyt4qHKI4bxenpYsN4a48GxCz9r0n2R5Rut0xhn06ovq9ixfm+pbdQm9
PU3dkWUqydLDH/02XvE8y6KLZtpp6ORemivL2vm6g9/QGYlqV1huOVGnP4f+
9XvqKsvHeTUKKHFu0rEhyYvlC+dUfbejN5Z/vsZyjOgOCUf0KtlxP5Y3NmYF
eqEflBwLYDn7yraJ2+in9OeBLL9sk6jKRjvOnQtmefSWoOUPtPJ6w3ssLw3y
Sq+S4CY6hrfvsyxIaAtyaLeYR+EsSz5YrjdCl/6MiGRZbXYu2hUtct4mmmUj
4ynbMHTkHE8sy2ez/1MqQMvGhcSx7Ekf4mpH9xmPP2A5xOZz2ww6R3xbPMv9
za9WXdmAeVGIT2JZXjVTfxHdmlmbzPL/uKrrLA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.9},
  DisplayFunction->Identity,
  PlotRange->
   NCache[{{0, Pi}, {0.9084103602931082, 1.489038608043194}}, {{
     0, 3.141592653589793}, {0.9084103602931082, 1.489038608043194}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.469452056167449*^9, 3.4694521102507753`*^9}, 
   3.469452196155044*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"KT", "[", "\[CurlyPhi]", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"L1", "\[Rule]", "1"}], ",", 
        RowBox[{"L2", "\[Rule]", ".75"}], ",", 
        RowBox[{"L3", "\[Rule]", ".2"}], ",", 
        RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"KT", "[", "\[CurlyPhi]", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"L1", "\[Rule]", "1"}], ",", 
        RowBox[{"L2", "\[Rule]", ".75"}], ",", 
        RowBox[{"L3", "\[Rule]", ".1"}], ",", 
        RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CurlyPhi]", ",", "0", ",", "Pi"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.469451756700021*^9, 3.469451772741238*^9}, {
  3.469452130710449*^9, 3.469452199618681*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJw12nc4lf/7AHD7KMfeMzNlr0jhvonMykjjk1QihayszKSQIoSkYUQ0JCGa
toRkJSMZScge59h+z/eP3z/nXK/rec77ed/vdd/PdR0JBw9rJzoaGhpm4uN/
366sDEet+j8Ch9kR6kdvbbTM273+s+oTDDXEdk2/2Y17a822GlyqgOXWgAD1
bVrI0fHkm9adCij41p3KNq+Jw0N0yYpFFfAlKzf6zmdNjKN5v01wvgKCJ/Q7
bnpr4tBe+V0z3pXAd4zC1v5tF0a/Zjn9yLsKfr0+L7aQrYEnK51lkhKrwPSU
uuGvcA1Ua6kev/G6CngM3ET1T2ngz8kgX9+5KtAPpDvlLKyByjsnYiy8q0HI
iK2ckqqOnelNJSteNSAxQXY6nKuGz1/uCJpJqIGKto3YLzFqeOXjNRwprAFW
Tf+4u+5quLNXp7F1tgZ2tmm919JSw2C+/IE8r1oY0V3/z75JFaViY1mOetXB
A1G196yMqrh0f6zFIqEOLovvJDlOqmDTM6MUg8I6MErRSlv/roJ+9eviSrN1
MDFAVaHkqmADvbsmo9dnYNZZK+g/qIKegQfPFHnWQ0nqq2mfQ8po5q6Txxxf
D2xUfb0zO5RRykFu+mRBPQTK8fQW0ipjpylTCPNUPSgWlvIFliihruCn1JOu
X2C3/62WUAkl3Fqm2EI61wDDTiX7VLcq4vBzYf6T1xug6ML+i+WjCvgpfYv9
6+wGcLAv2P/wswJ6Rf35Z/e7AT6v1b/cF6mAXUcekl6fboTbFZbzoiQFzFkk
g92JJlD+8CNUgU8eQ8dWrhcGNgHZ8X23zrIcHusbbWJKawIN9523Y3/KIbm2
5r/CriYwU/1bNfFYDr2Tgv2YjnwFakqR5K1dcojqE/mvLJthJeymbN7ZnXix
zCmOTqoFeLuvkctGZFHJ1EqcVqMFJqKn/6Q0y+JMt87rTcMWEFSMk3n6RhZ9
Vrk71861QIqk9zGnKFkM1KsSpT5rAV2VnCx5eVmMrBHL/6fWCoNTaxaeQdsx
o+VHY4dBGyzJyx49sFcGHc5Un2y3aYPA+yqscTtkUGru5XSrYxsIeIeazPHK
4BPuSO5vkW1Qa0JfLzUrjflHNE58aWgDL+HGKPGn0vjuZ/z4R+t28HI8u1dt
mzR2jJpuyXXogHL15qQQCSmcvrfDKMK7AwJ/2L2N4pbCreak8FNXO+AStUsm
j1EKMb9miT+rAyT+yW2RH5fE514wGj3YARdWrULUiyXx6orGZ5fT3yFG8a+0
jIUkKpPFryvZd4Lcn4eZR2Mk0OzjRsVW905oZNxT0xoqgY7ufWsjIZ1QfCm/
3u6SBKa1pPmkP+yE+K3iY9l2EsiUzOvI0dcJUu1j75eVJfCnKMu+uRM/QNfe
ODi1WxxjlCk0b453QWTxVHubljgG+pvKj7h0AQe5qdpOURwvlD+w5QvuApqY
Pi6KpDiaHNr3zO9RF5z7vnDgCJs4kjzibbR+d4G8w/3YO43b8NpLuSdlbt2g
L5WaVaO0DUMVT5m/D+uBTIkbWQpbxNDd97Xvv/ge8HEK+5hLFcWTHxkzhLN6
QPty4Ns9I6Koc+DFQlBNDxwyrn2QWy2Kq27LD3W29MKMnZx0apgoBry4M/Mx
sRdUkvMNXq6KoJd8fXJFzk8wkbUKS6IXwWGn4SsZb36CR/ivoc0FYTySQeN2
5fNPaIpauBoyIox7eLUNcOwnUO/uX375RRjpNp9OlSv0gap8kPXfeGFMbLtp
XF7UB+W6l/COpDC+vnxo+WPlL3iTGrDIaS2E0sWuww/bfsFuTlH9W0ZCmDIV
9S3k9y9gLV6z4NUWwsCzFTm6jP0wa+JuZCMuhAYHVK0/mvRD+ekA6eBpQWwX
537+4Vs/OGulpV2MF8SVs64v+9wH4LaTDUn7pwCe5pwP+OA3ABsGAs+F2gSw
9lPgvvuhA+D4/ssPpnoBjBeM6ToWNwBPBYTjN4oEUPZbHl1H/gBMnqnpv3BL
AA/vGTnSMDEAg/WfPKRAAF9ynNl84zIIQRWmZtXP+ZHn0+iXZO9BaNLvJPVm
8eNlV88kn8BB8P1gnLl6jx8N68J2qsUMwmF+191Ho/mxN+iRTf7TQbj/3PKV
nxM/Mv/tzX08Ogg2J2W+WUjwo8PHI5bx54bA928G+9Z0PlR7I8Al6DEE01TL
wZAUPqQr6GnP9B+CSyrXY1Zi+TArw/5oUfQQ9DOsqbGF8OFQxDn7zmdDsLAW
F/vwBB86mPm5iUwPwTBd5l5rIcI/kqPz/H+DdmiEft1DXjw721FRET0MB67f
SX3+jgdPB8YfLYsfhoQHPlaXinnQjt5iqiB1GMRWi+7jSx48wlstnJ43DB7P
fjX8y+RBE+1Cv5D6YZD1px2OuMGDSuGxCnuY/0CeQn9myXEeXOLYn1oU9Qc4
5QaVKevceEul1ONJ5Ai0jNGqfDrMjQ1qP0Z840bgskvMcOchbmTeRT1plDIC
QedpXsybceM1bS2L4ZwRCPyjdlZbnxuDDEp3SNaOQDmjE82iIje6HC4dfEj/
F+KTNnx3MnOjcUCpTfKVvyB5+O15t3IupKso1boWOAolQfnxd3Zz4TNWrifr
V0fBnP/hXx0NLrQ+4cbjf3MU5I7dph1X5sLHFPHZCw9GgS/Q0+OQLBcaKsY8
O/RpFCoV1xr283FhZJqdqDDdGMg//2Y5vMCJW31p6V/fGIOtq/r8VcWcyCln
3tyfOg5e3zkibPQ4cYSUzlmfMQ49qneG2fZy4rs/c4df5Y1DR19GT5MWJzpm
pvVeKRuHtTd5QZaqnFgmMD4q0TUOlveZbf2kOdGedIPekf8fCHGEx+xh4cQX
w3W7R5P/wc0XXwtSejjQJN3g8UziBMRvfGJXv8KBUfUtfVfvT4CiTPIpsxAO
rJu1F+DNnoD9of47HQM50MgwKFa7ZAKGQEYq3YcDDcaK/K/+mIC9C9y+ahc4
UEddxoJHZBK+DS23NVlzoMpn0qJWziSQPoYsVMlyIP900/6w0imYC3pkn/GK
HVMTys+MlU/B6ei8awwv2FFA43WwTf0UDH3IT3bLJXz57mvZ7inovat60eQR
OwrRO4i1rEyBfXliltItdhTjpy6K602DbL58yevz7LgdJHKqaqZhmoY/OVKa
HdM+v6OlvzAD1x7oU789YcOZgVeXp91mwMZJTPq/x2xovPJkttdzBvoYopT+
prPhgsKdweKAGQiJZfi+5R4bHkx0rTwXPQNhlba7vW6yId1JkfCG3Bkof+vT
W+fJhq5zITSJIzMwOba85aouG1ax+ASEjs9AbsqtZ4572FBAxmXGZWoGmkYP
L5hqsWHd0SMD+ygzcNfnYoiIKhuKf1SqWGScBUXRC3sHpdmwI6o/7LjMLMhQ
BARHyWyoI6q/Ke44C2RNPv3BX6xoYtfh7XB+FvT68r9197Li4fvOI4/dZuEY
U7Lp9y5WdBWM+7rddxaSXl9d6mhjxTTe3vsKkbMQ5f2Im1rHikusvrt3583C
8Ty9xpoCVizeyPM6NDELYy2ZjEERrFihq/MnfmYW5pyyv3+9wopNwd+OtS3M
QtsKu71UKCv+XlkE2/VZULbSTewMYEUuqgHbCbY50JFkO3XSnRU9p38+O6cy
B/GwaPLvOCvKD3AMh/jMwRExidwNNVY8+Fe8yi9gDvbTffzwVYW4f0olwyN4
DkaEa7emKxH9WbO0O3NtDuoUF81N5FhRRzChwzBpDq7Scu8vkWBFC2vOWpbi
OVDqGtZc4mBFtxrOJ/fm5+Cat6uq8CwZ4xolriVS5+BHT4Gz8jQZX7WpOtxc
nYMeFutSo0kyLgxYiYXQz4NyDU96wBgZg9cTUk5zz4Oi2G1/6iAZb2lyRcmq
z4NgdnDUsXYy5udxnS/xngfNt53KWaVkvPa9XJ/efx62fVWx6yghox3dRWGr
oHlgfvy+n7mYjFvtPjdPRMxDQbXLaMArMp5jD94lnTwP73Vzh32eklHc7w/d
ndJ5eGDl9qr3PhmT9pU99FybB8+Gs9z2V8no6unk/4lmAW7mX7LsvkJGg4dc
VmTGBRBe1/18JIyMsxQ3hjzWBZC+lml/LJiMB59JuPaLLcDHZBT18yMjM+fN
3Qf1F6Dn8nlJYVcivl8n2+UjF0B2fuEL4xEifmPdh04xC9B4YzKw6TAZ3QpF
nNPjFmDMgVU72YaMJ671rnDdXQDFRq4eBSsy7pE7LrmSuwC2q6kPfCzIuOx7
2Kv+ywK8GWtIcNpHRs9+9b10zQsQ2BxVZ2FAxlETbkadtgUwsRDY2KVPxi7h
ttSCngV46gmX2ICMZZWHKlL+LYBXWp7jjz1k9GM1Z3diXYQKlvFf9WpknPKT
637EuQjVtFzL31SJ8RvY8riLdxEsZrLI3SpkPFJUr2khtgiV1GrRWSUy7jq+
315deRE4tyZ07ZYn4svWz6e1WoQH7Q+0tkuT0Utnt/mjpEXwC5Ci8+UnI417
Utjt1EWIUOj7UMdHrJf0maIrDxaBg3REQojwM7qnImezFyErg2WkloeMQ/WC
U7LFi9CfaHtYlYuMh21X4wvbF0Hga7fPUVbieuTR2qwfi7Bve3RGNZkYj7Ki
5Tu9i3A1wNZTlfAtYTcHv9+LwDiyvMLJQsbawZ/qe+cXgYtqWDTCTEZN90+d
NVwUkEvOO/+LgYw16UIsb/goUONWXuBI2LrVD3KFKFCfNJE8QU9Gdw3lvBuS
FIiaO6FHSzh3Jf3yQTUKpL25SNWlJdpTWMsHTQq4/uRUbqUh2jt5bEhlDwVo
HMPozxEeqOAw5zaggO1kWnjSJgsKRIWLdFlR4HmbaiPDBgs+Keuz/GJLgbyl
wMHsdRbUGNe+/u44BYSaHRP3E7Y8MDf54AwFZjs4quPWWPAG99nyM14U+PYo
55jaKtGeUfm8tS8F3LMadfpXiPb8hHcYXqbAtbOxb2MJV3W3x28Pp8C9HRNB
08ssuJJu6PAvngJ7Wy+K1i2xoB5VN1E1mQJ8G95/LhMOP6hV5X+PAucy424q
E2Ze3ynJkEUBO7phzwwqC5oflrI2e0IB6bVbBScIxz0XuRr/jALcw3KNAoR5
/2MfEimiAIO6QmoqhQWPFTJznS2lAHsbg+kJwg+Y6QyevqfA6+YP37cRlixd
yNxVQ4HDVz6Gv1xkQRWenjMHv1Og+vFXkaEFFrzk2p6Q1E1c73LOKSL8pqqp
sqePAlUj3aQowrpe5RLOIxRIbzl0XJ3wlfoyq/xxCghk9hiTCddsex0+P0WB
DQ1z9r/zLGjWnD0YRqVA14N52SzCcTKPOOtWKeCnVxZwlXBr8F19Mg0VTugF
ZzoS5umI97JmoALbd1KWCeFj8jGZqcxUmF2QClQifP9qROsvMhXWTdN28hH+
1R1MK8NJhevau15tzhHxqfqpuvJSgXmonPUfYadojzOFglQYEGIy6CKc138+
gSpKBWGfDovPhCc0HSp1JamgobmkWEZYOe7EbMR2KgyfgT/PCHv/OSzRIEeF
voIA73TCb3QOWnEoUyEn/tL3ZMLLd4zDj6hTwVSBhi2OsM4/LHygRQVNh2nh
aMJXDPYMDu2lwkY912YE4ep76pw7kQpiL3VKwwkzzSroexhS4TsvGv7PZibb
vUpMqPD33UzOVcKx6dsyVy2o4MIm9fM64RaKQKu+FRVStF6MxBDmOchFG21L
mNuhNoHw0RwW1ebjVLDcJRyQRjhtjeEMjz0V9vx5uZFN+JfNRvx/DlSQlVg8
VkhY4jm1IuMcFfge1EWWE3akm50ZcaHClk9rUd/+N17Hx8UVPajQ9tjLbpDw
v1e/LS9dosKIGA3DImEl5r4rb/2JeEsiQrcS81Hy5tuA0RViPlp6/+0hvMT6
hePWNSqojrj8siWs41SFbdFUYNnt+NibcBV3SYZ9AhU+uHBlFxJmcn3Zkp1M
hX2Xo/rbCZtW5dL8u0cFnm1/J6iEWzzTTvtnUUFUbyrYiFhvcvEcqz5PqGAw
yaTiRjiiIDLZ+xkV5D4NBSQR1pzybrj4mgrPqDGNY4TjWcccXd9QgcNC4Tsf
sf7HFU5tnn9Hhdx7e3yMCD90NddwrCLWy+cD3rmEKTGVzWfqqDD1Vb61h7Dl
M60Lpxqo0Mm/s5ad2E8MY1KP/msjxidW2y2UsMu5NZLVEBWO8HUVuxP7s+a6
d9bBESrcftT27iVh0ZxRHYtxKlQauNjOEG753eFlPEeFn9XaJgHE/tc6k9+r
S7cEH3QWJe8T5weDnX2BnOQS+FV6PVYgziP7oA7THduXQJT+1+R1wqVpZsMy
cksgdMe4aYCwS7emoITaEpSMrRneJ86z1iPsEfwGS8CT4SsjRZyHj6wqjjA4
LMGlv8EZoXRkXPLUnKU9twRhsH/nLGHr+Bc3Ny8swUfLOSMn4vxl/JZaseJF
3L9tY481cV67WXjJzYYvwdkZKx5gIqO2seRGX+YShMttueG4lYwajxuiP+cs
QeJG/e1Jwkqb3tyFT5dA5YCIcACRHyRLq3dcK1yCA9a55QlE/mCRdbKRq1yC
2Ou39X+wkbGPKS/Pb2AJvirqaTznJvKrg6X66eElyFoUjbEg8lXbp6WPpqNL
EHTd02macJ2fabvIzBI03XzzQpvIbwUj4+tVm0vQNfwzbECAjOF1ijbs25bB
N6nHzF+MqBckO/uWJJeB3dqJVnUbkZ9DQ88PbV+GvIwPehOEXTS/hZQoLcNd
hd0HnSXIaPPEM++E3jLIxVpWexD5ViayaD335DJIyJG2NciR8YuRdh4+WIaP
qaMhObvJGPA5VCksYxkGtKKMs7XJuMO0pvhj9jLQry0PZhP1QKTFoco9+ctw
HZRjnuuQ0dDGqUfj0zLc/lCb34xkrDidQN45sAyQZHTJzZSMpUFjnpzSK5CW
GZlHsiPqhXUl6qEdK8ByYGgTT5KRL8wnJE5hBc7/XlYOtiejz9XNGyy7VkBr
S7Tw0mkyqt3gfcy4fwUKJ313MJ0j48sU/e/Lziuw3/+OfZAnGXMK72kPPV8B
n87O6KZIIv7VE3JdBSsg7cl8f0c0GVWMxISbi1bA7qqGdeQNMn7oylp7+34F
9m57+2r/LTK2bz4vT2hcAe88Pa3eBDLSHvxkpP9vBfbNn3lt85CMJ8eHrDLk
VuGgeWX5NaKelNTIMUhRWgXLsHO8fES9ORrirH5LbRVommmEn5YR/eec4AnY
swqNx9O0Ot6T8ebuxR+HzFahbufOSr0qMr6NJNlvXliFf/ZDF52+kZFXSsHF
/ukqDC0fZFsbJ2N84s0jT/NX4Q2DxuXxCaJepftnsFBItOeoMN0zRdRHg0+F
Y96tQqvt043KOTJOPJL9WtK4CuoG+z7krRD1hJCUCuvUKhx4Z7S7eysr+nAJ
Ud6rrQG/4fCdBgVWbKNlvir4YQ3u8xa08viz4lT+PXvLijV4qPgjLewyK275
T35vVM0aWH9+FTkRxIr4+uDCQtMaHDgd86WJeN946ZB8rqVvDVKLozlzY1jx
ZrWkedTmGozeOHqi+hErGl7X5Vk0WAd+kd+xGfWsWMJ86UnLl3UIHMzzEpNi
w5Hg8MlPX9dh+cwxzT8yxPvX7G2N/NZ1gENszC93sGFw94uqG93rYL1l4LuR
EhsaPhv5ZTC2DtfPxKrFabNhm/l//CXMG8CvHfLyqiXxvhinH33PeAPYG561
0VxhQwVeDheH2g1Q/6bx+/ofNuQueP8i58sG6EWydYqNseGKifP06NcNYNFw
vfxugg3rgz/5eHRuwPicxI/leTZ0HHYLC/67AX2tTLz36NjxYdGXpJQtm+Ak
lN7+nzg7sllHlDcc2ITu8LRLiyfZcTqOwqPeuQmZRyv39g2yo1RUlLKHCw3u
+6/AbyiYA4f+6+0x+EuDAm9LcnnFONHkT/tyiTst8vjLnL41wYkB3k7n+SZp
0UhOysy3hQujzaec90zTYi01qOhJBxfelfZ3tp+lxayNSqneLi580xl97ski
Ld69cEHqwCAXzu954ai5QYvcmRKjtnNc6E4/f/oIOx1myJV1r/Fw49mkK8dT
VOlw5NSvzCI7bjz45r4Znx8dDqlOfnahcOP5eYdN3gA6XJP2HxVb5cYIFbli
3kA6TFZfP9y5yY1lz8pEeUPpsF3zmuihLTwomf59hjuSDt+dnvt4XoQHKVHs
dzlT6LD23dd2vX08+Oh4xG/yGzocHlXpuHmHB6fWXILpKXSoZ+zr7gC8ePyY
+c5lKtGfhiLnEUNerCmS75xapkO3Pa4n3M148Z7LhHLPOh1KqMrrx9gSRUXX
xd+vGOlRWc/MY86VF+8XeZrZ89IjVwRjYdQ9XjRx8RN4q0GPvVe8CwapvJj5
I7zY/RI9ehgcoBhW8eFIrUp/nC89ton8PB3whQ8Vivu3FPjTo9ycWW1hCx++
idc9NR1EjyLqp1I0+/mwyXR5i+c1evy0VMp7Y40Pl957nvJKpkc64eHYo7v5
8WDGqa0+pfT4+5FrTVMxP66c1z19eZUev7TdvdpWJYBm7+XQd50eHwfmqso2
CuB9VgFxr016vJ7R8+NquwDqvJ7rP0/PgFbHqnYeGhbA0NXcU8dYGFDbi1qn
wySI9HFcp7SEGZDPWU3hkrkgkov+nlzcw4AnuHzjb/QKoh3jd91ZHQa0FovI
+zosiPlHq0Qn9Rjwn550m+CUIB5ce9A3bMCADX77whtohDDeyPpkhxkDqnX4
OMZtF0Kerg92Rf8xoMGdWvGnl4RQdD3hhFcgA5a6hHH68gijydCBt3eDGXBK
bKU8f5sw+nzewv8plAHfZv8Im5UTxoaE8LatEQzo1LzTK01fGP22e5lm32RA
BdXw5ksewthyyFLrxwMGvHhBJcD6qzBezWLj1i0n4k0sFdVMFMH8qAbPs5UM
yN+rtz7zSAS73CKbb1QzYKLqPd63z0VQSWvjRudnBrSUbtbzqhXB3sZJGs8W
BrRvnXwYsSyCGotNU1mDDJhNb3/ewFEUR4xvNjAzMKJalfHbckMxdDA/LS7D
xIiOh5duM9mIYd/BXX76zIwY69/TZHdGDDts+yUCyYxYtc2hSytUDKvOql/+
x8OIl8yzep+VieHDsF7ZZhlG7FCxckxT2YaHS+Wv3zFmxM2QwowXfOLY8o6m
t8CUEbOrt3v3i4mj+afvKk3mjPjY43ausKw4GtSG/WSwZMQHqbbBr7TEUaW9
Xd3vGCOy+tJHHzgujuTpoKFjFxgxxG6r59lH4li9vQnEbjJiwg6lnAAVCTSL
6zfji2VEm11anLbaEtiyOGfLdpsR3xqu391rIIG/agTdNhIZkSWpdLfsYQlc
cnBO/ZXGiC223x8HBkigQjrd7KNnjPg31zRKoloCU/i1s7Y1MKKCSa32/GlJ
FAmzyOdvIp4nmu+o6SqJj0dOlbE3M6JipDhnpK8kviqJbN5sZcSo4+XG5jGS
2GjTsdLfzYj0ztK5HsWSSBPvYZMxxohestOfNFik0IX5CYPEFiYcpQ0WOFMt
hY100bH7WJhwqWW50blFChXWL/CdY2VCn05vuvA+KZyeVdzxnJMJS+xXE/9R
pdCnt8R8lxATjmB5Uo6iNIa8rE00lWfCaa4YqdYH0hh/+I+49wEm9L0mqIw3
ZXD24OenSYeI+7surI6nyaC16VO1Uism3DG5QX75TAZ59S4artky4V4LyV8h
DTKYJrvoHGnPhKHrJC8zlu2YvcJQkObBhGcz97s3JmzH0gxp3eoEJtSXeyCk
WSyL0puGQZV3mJB/52t1kTpZjD/p9LY8mQmL6/LqxLpk8bzQk10f7jFh1n5O
58A1WRRKklUqyWTC5eIMoTv7d2BwlNy23EImXInZ73djYAcauKvQ3mxlwgOZ
zgfeKMrhyyZLuNHOhH6KVq7l++RQWN4rJOo7E9bxNxhOH5fDhb+FyxHdRP9e
clTURMphzhn1ueBBwstb9ayH5JDZVvO3+ywTXt5W5nQ0Ux6b9+rUWnOSkOtG
a/kZA0WMKfNd3c9Nwg/DBsdTTyqi8a4C1b28JBS0T3Cgv6yIFUqSj6QESbg+
typ++ZUiFkkw+y+Ik3Bi4azNgoQSppI6dqSokLC6klT/ll0Zba+xnopRIyHP
FSeFCCVl5KI1Tg7VIGHKqnjCzQPElKy8pXXeTcLKRMbTdreUMXQyvUcLSVig
kzFzg0kFz7a73uo+REKVyeR/X2JVUNwyp+qrFQlzXZ6bHU1XwZ9Nv5YqbUj4
Nf4YdWuhCh6ps3J6dpSE9Nncyn87VNDkrZZe0CkS2mbzm4aLqaJSOv2MiAcJ
aZ/eP1LyVhWXXO7bnI4j+v80SvwSjzreDnxMCosn4W7DYp4pRXXcHvP8/cNE
Ej7OWSp5aayOtk/fS/WmkDA+TjSYMVgdX//tnbdNJ34/XNG3c1Qd3RxFksxf
kfB0Vdt7l28aSO8jbeLymoRHk/22fJ/UwLQIhbXoYhKWviiTSiPvwi9ZOo51
ZSQU9RCW2mu+C7cP2mnoV5JQ38pdi/R1Fw6cfNih2UbC1vTDiQ7Dmuh/MSfa
toOE+6VP+R/aooVsIfk6Pp0kNMowri5R0kLdBx+zC3uI5/Ed2qQGamFaT5+P
wm8Sbo1gvJcquBsPHxXjlVwgoQXXlcBCL22U2GJ9XYnw///f4P8AlUbQLg==

      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJw12nk41N/3APBsMxIlS9vM2JN9XyKcY7InlKXNXihk+wjZ2mQrklCUaCFZ
KiRarFEplRCibCEk2Wds+b2/f/z+mXlez/t5n7nvc+8973OfZ0Rdffe7sa5Z
s4aX+Pjf98ov97GLtdXgOKNUucHADHc1mHHR/6sBY3/TtT42psjblvtZ81oN
qDzzOzQhboqDA6yp8qU1EOj7flZq1gQT17wU3jpTA7VLA6mv0kxwYJes+mRA
LTCblTonfxpjbMk659sBdVAcwGZ19qYROtR6bE9JrgNqU3LdZKARqjS/Hosr
qYNzG6SzhyyM8PufsFOnpuvgjJykxH52I1SUHo83D3gN6xlCjZOBhtie1VS2
6F8PZGqN0R4vAyx4JBU2ebUehuzOHRzdY4BnK6NwuLgexLja+kfkDFC6W+fD
l6l6yOKPc+WY3I3hm4r68vwbwC8nNvVi6G4UT0hYd8D/DdSmnbq5N4uOzJuj
zeZX38ATY8vNRhfp2JRvmEYvfgPyF+NcY73oGPRuRURh6g1Q/xxIHdpJx/ds
Phoc/m/heF6v8EC7PvqFWriU+r2DZ0HKynNC+mjmo5PHmfQO4q7QPQLX6qO4
q8xfh8fvgOxCvyczi9huSorgnHgH7emGf3e+R9TdWnXDwasREt1vk96GIHJV
yDeT3d9DiCZLNk8V4GABZbPDxfewVr1gQisdsCprrWPJ/ffQ7JaUXxkI6B8z
9Nv+53vQNi6890YOsNMuk1zi/AHq5a45V2XrYc4cN9gfaYIWkdl+6+u6GDm6
eLE4tAnmDBzOBATr4sEfI02kjCb4vO1zeccBXeRuqD9c3NkEHROFLgFbdTEg
JTyIZPcRSI6+xs1ZOoiq40VPrD7BjhfxKcEVu/BkhVsiq3gzPEJHp2MC2qhg
uk+ERa0ZjEdpCm8WtHDym07JqkEzON3a4ercq4WBS/zty+7NUNMoqburQAtD
9epojPxmeJ2aoBRiqIXR9UJFv1W+gMW8quqFCzsxu7njQxu9BbhrmvqYopro
6vLaodW6BTQoxvF0Hk0Un37098uxFvDb2yhfytTAXP5o/s/RLWBxePMzcrMG
FtmpHWl83wL5urweAWc18MX3pLHK/a1wpuBTO+OXOraNmK594NoGgqnGg/s/
q+HfdCnDCwFtcO5IW2FvtRpy7SGfczrfBpvbVkeinqghFtUzN99tg/MNnV2b
k9WwwB9GYvvb4EDjlexDdmp4flHtrafzVxgPfVYg9FMVFblFLio4toOnafVW
B25VNKv8V8Pl0w52LpfL0lZV8JjPj+XhiHbgsh3sHJhWwYzmjMCszHaQuR28
reSbCpJSBY/x/mgH+tV7jlJ5Kvidtm739JEOmIlxHbM2UcF4xfk1zw51wpnb
xWkvUpQxNNhUdtizEzK7Clopccp4ovqW7abwTuDjSZ1MiFBGE8vd+UG3O6F5
QkD3vrsykn2TrDV/dkJMw+7DqVrKGPVIJrfC+xu8e3TznveAEkbKO+15eaYL
Pp6349oKSuhzquTU76QuMIw/GHtQXQkdKjmyKXe7YGNCiFiOrBLq7C2cDavv
gjoOKyO3LUq45L2QqbO2G7qrxFRWBhUxpPDaZGVyN7i3HlBn2a+I/rLvUmty
vkPgs7RYC10FHHQbPJv97DsU7Pg8wCmvgHbZa7zPvv0Oyzo5Bh1UBdQW1KLj
6Hc48sTp2uNleWRdfThRLfcDrpvsvGVWKY/JLZeMq0t/wEmRRRseujyWnLZc
qKztAVVWZ9Hxg3Io8dRrMLOlB6hTRmajZnKYNhHzOeJnD6zqi+TN68hh6NGa
HF2OXuh84pyuLyqH9L3K+ytNekG4ODYidUwWW0X4C1597gUzhxP2wmdlcfGo
16MfPn1QaNIfs+mZDDpvnAl5FdQHvjcTVV7ly2BDVejum5F9sOtYhP/JLBlM
2hrfeTCxD4YHIjynY2Vwx+c81raiPlD18IyKspdBG+1hu/fjfVC54UvqSw4Z
fMTrsvrMsx+ep9vNcTtLo0DVSGNqQD8c73WIIdtJ42kvv5TA0H5QIQt1rDOX
RoM3Z6RV4vthw/fXYco7pbE77LZ10cN+KA+9HvCXVxo5f3U/uDfSDyMyVCnZ
eil0rbSzSnIfgMM+LLkWylKo8mwL31bfAch57HXn4Q4pZH3c1XoneAA27/1p
t15ICu9mOx4ojR2AfRc+vJjlksKBC+6O7fkDoP/nMkN1aAe6mgV5U/8OgKI9
L8X/JuGO1Ni84J/wX4Lqgavrd+DRqbaamthB2KJ51Y7EI4nOoUkHKpIGwYzT
WHuOQxLt2cwnHt8YBNl1n2Hs33a0E3xNycobBFGmb8rw5HY00SoOing3CB7n
Oe/t+LodFc4lyGlzDoF/wUO/htvbkclrdKM0ZggWCwPK6Brb8bJSuW9u9DCc
HRvcvRAoge9VOoZPJQ6Db5p2sr2vBHKqMxwM04aB9Ue6Y/0JCYzS0jQfzBmG
VK+DTnccJTCMXi4l1jAMB5K9LiSZSKCnTXl/JtsviAxpiASaBBqHlFunnv0F
luNDVXWN4shaU64ZFToCOQnqUlEK4pjPw5e7cn4Eog1b8s5Li+P+I94CwZdG
4L+bL6wuSojjvXmRqRO3RqBncZTj+jZxNJCPz7esGoGBrOPXfpPEMTrDnkZh
HYWE/NgXtn1iyHWKha0kbhTEoun7+dPEcKPMnk+9N8aAQ3VNsze3GA6Tsza+
yx4DPCbwKpNTDF8MTds8yRuD228vnv/CLobH7mR0n60Yg/6VPyn6K6JYsWVs
RLRzDO4bBCfsnhBFR3Ic27HNv8G+sut1U7MoFg6+2TmS+hvc75yOG7wuiiZZ
9HuTyeMwl6P9r1ReFGPeNf84f3Mcipd/BxvJiOKbKcctgvfH4ZdmzONuSVE0
NAhL0Cobh/IEL8v1IqJIHy0NPt8xDqCwjT+FTxR1VLebC1D/QOXny6+EmSKo
9JY8p5nzB04O2JZLNYjg5r9NRmfKJ2BWJM8n2V0Eb1ytdhmtnoArtoGmX46K
4Ba1knDrdxNg07JoyedC+PT1kh3fJsAze+BbxhER3MbmKtS8OAGrLDvLGqxE
UGgzY05E7y/wZDxTOrdLBCVBNKeu/i/0uMQ2RfGJYMbbFyxsJyaBERnD1X9Z
GCf7npz+6z0JHnXfkwtihdF4MXeq228SXoQGm5yOEsZZuWv9T0MmYSPbG1Wh
cGG0SPaqdY+dhCxv9a8JXsLI6kA99/7BJES7W2ey7hFGr+mINcnDk1Cj1RSs
zi2MOjT9VZFjUyCqYMXufF0ITezbAlyPT8H4esa3W9eE0Oamx/A97ynY+Hnh
9/crQui1NfGj5Kkp6OKLrHSPFcIMwe6bctFTIOc33J99WgiZPKd27sybgn3C
WslF9kL49F+ev+X4FAzIta6jbhdC2T7ewYjAaYjXSrjyt4qGFr9E6oJCpkFr
ZIlF9BUN/SaUsn3Dp4FhUjNq85yGT5et7F2ipoHX+p5AfSkNdbZebTNImYb2
tzHl1Xk0NN+/sWHd02koGvRTlb1GQ+/6jbnpM9NANrGz/HCChokfRKOSGdNQ
LuhMN/Wg4ZMWZddLS9NwMO5jTOMxGs727ROKYJuBhLe1HF+caBi+cjXNmX8G
nEq/FC/Z0vCyBl/MDtUZsLaQH6+i07Aoj+94WcAMgISbwjyNhlFfq/XZgmeg
JKuGnEChoT3rScq+sBnQatoYLLmVhlz2bz+NX5iBj4Z8/C4CNHTfEK4ukToD
txvponNcNBQJGmK9Vj4DzoIR2deZVEzZXZHptzwDF7Laqqu+UtHLzy24as0s
NMX76ue2UpGeybePm2MWwr08NJO+UHFq3ps9j2cWCsOvhHt9pKJFvqhXr9As
pD6esIIGKnJuvLTTQn8WvKsNLY+UUTG8x6FVNnoWWPk7zByvU3HWWDfTLX4W
PmtvH8lIpaJ3MdUjK3EW7rw5/fbbNSoeiepe5Ls+C/+ZbzF1TKKitswhscUH
s6Bfe41+Po6KC6ds/N81zoIvx2Y39XAqBvHs2eDGMwdOQW+sdh+l4kSQzLfb
G+eg2syi+o0LFd371t7rFJwDuuWXg+bOVLQrfadhLjQHHh93cDk6UFH9kJGj
quIcqLYMWN88QIzvvn4Ry745MNFmzIabU9FfZ+ee2ylzIL7ZUqpTk4prfFLO
XLkxB/8qH+U+1aBiYtZk6dlbcxArZ8ZIVqdiPutD6tH7c7DW0YfHVpWKA++2
Tux4OgcfLCRZ/ipQ0cZ2Kam4dQ7Y1+/OPS1JXI8+0HC3Yw6K8s8K/Ledin4V
pQvXuudgT7qchY8EFS9TvF2Dfs7B8F4VMU8xKjb0f1fdNUPEt2nSDxaiooZP
VXs93zy43lkl/9pExfqsbeuebZqHxwps/5YFqbj/SxA82DYPnE9MngsQ9lFT
zIsTm4exFfFIU34qPljMOm2hMg+hH0ia7zZQcUvMOWrnvnmYXP68adtaKi5m
Gbj+TpoH73jbnTwrFNRj6CYrp86DvQDPbvNlCp6z0KwLTp+HanFpu4QlCnKu
SIux352HrFj+FMFFCgoe3jBALZ2H4erIY3oMCioJdLlYfJ2HtQ6POaemKPif
V+vVlG/zsL2gx8eK8LO6ptquH/NQdbevo3iSgrr+1aIew/MQ7cZfHPqXgmaf
7vefYcxDoZVTsMQfCrrF+roUb2XAnTM+GzpHKJjXe/wqg8aAkg0fIw4QHtdw
rdUVY8CZ+ypjnb8oGDBkI/pehrh+ffFl/zAFz9K1+wd2MeDL8squdUMUfJ2u
ulEaGRBfteFaxiAFSVNy+r4GDDBPXDcsSzghS/jOkjkDaLTaSJufFMxYZncR
cGRAhYR5YGU/BXus/yUddmVApOGXe/aERQsYNdnuRHwH648rfcT4Do2JyPsy
gJPkzmNEuOzZ5z7DswzovXxt10QPhahnjbyXoxgQdbVRLZOwjlsdtsQS4+3V
k7QgXMdflu14lQEp4Zumyn5QsNkvwzn4LgMGKsZFMr9TUCaJdykwlwHSUpUU
Z8IXHkenBuQzwOljQ5MEYY2JgPcnS4h4YSNWpd0UTOIZPeb1jAEhxhXiEYTH
5JxWj79ggNUn2UITwplee9SO1TFg/p7vj8EuCs7H135yecOAG0KLF8sIW+Vr
nnB6z4AnBbd+xhBmHxW/fbiFASwu9yuVCTtyZuw82M4Al23vtNYSLt/B22rb
xQATznOeA98o6Om+TN43wADxAvXRdML1FwPuWgwzgLl/ViOEMC1nRMd8jAHD
Ap92HiQcVO/YYTrBAL53ORNahJt/tvkbTzPA8rPjQRphGbY93IbzDODa+uMU
K+Eosdpc+iIDlIU5jEc7KajpUtSty8qEwyy/2F4RTjorHrSLxISvcd5/HxAe
y0rn1eJiQugO1cRUwgbVGwo01jPBlFusL4rw7Z6Lhmp8TFCeExk6RZi5stSr
vIkJq9JbMo8T3kcLCFXcxgS9iEmyA+F8nREBeSEmKJhf225NmN3e8bGMGBNK
IsfmzAg7hrWZSkkyQTymL8SAcHmG2eB2GSY4uDo/AsK8L2oixRWYcO26bZoO
Yc9vGltFVZiwe2eh0i7C9czCUiENJkj3WUX8z0JbxC2o2kyQLFMK1yUcopk+
slWP+H0PLXl9wl/sNlzYTGfCLqVDSUaEZYIu0gSNmKDeFpmzl3BU6lI5nxkT
RrPTve0I9zz1389rwQTGyfQhZ8I7236N8+xnwvNbPrwnCSfPOMSss2OC4Rau
P6GEf/O1ia49zARjW4ew+P/lT8XsFcmRCWv3H35583/521djx+5K5D9tpvDR
//LnpzHF4k7kW5Vq9Zrw/qTCS6snmLC1/u39b4QLH4tJrpwkntd7LH+KMMfn
GzWL/kyw+Rbiuo6YX8eJ9UeYp5jwR//4B0nCFTwX5+ZOM2HE7dHQbsLe5v4y
U+eYYJ6wReEC4Tdev+onLjKBWiVjn0NY+JKD03gcEzZy+O1qJNzSaJry6yoT
CvmDeDYR61XLWOzfjztMCP9e+e81YbV772Pf5jDBKzGvdpqwwmoAf/FDJrC+
qZUQJ/aLWPlrqahiJjg1/vchlvC6HW7WMrVMUO3IzPAg9h/pAk8PfwMTEpg1
jvcIr+ktO77yjgnsp8mv+wjPppEim5uZ4O7K6u1M7O8fpLy8oD4mHFsdgv+I
/d/paqXqPMiEqE92HK8It1QxK01HmFBwdNWT1Es8X5BpK3WSCRl+6zZnE348
PLZSt8qEg3dLp4eJenPujbz1BuEFEP5Gqq4j6le4WPsPptgCXFE3uLSdqG9B
kZHHByQX4P07ZMYR9tT4HFGmsABjJflPDxD10TrXL++I3gJc3/S6gkTU0+3R
pSsPHBagTaJ4qWSMgiIDR2KvuiyA3vGhLsXfFNymx84f5rYAMiU9Rx4RXj9v
I2VxcgFyhf/b/WScggy3+f2z4QtQmny+4O0EBRsNtfLw1gJIJ7fPGMwQ6/dt
pMKZ7AWoq5j5MUJYyrT+aeX9BTg6EVeWOEvBaHPLWu2iBTDTeSrfN0esN2u3
LrWqBRARkjHKYFKwxvkqt3TfAnCHK+7y+kdBv4H2ZI/BBThlFblBYZWY/2PU
rbkjRD7i+1unCUd6PNguPrUA54/elz/PQkUdn0o9Gusi2DhFyFSwU7E8bNRv
o8Qi5OZ0BJ1bR/QXKwoMS6lFkFs0OXaUm4qbzgRGJMotQieJZmjMQ8XA86tx
69QX4UrSt34B4v2qEid4j8NokXhf0BPf8lHxUZr+1wWPReD6IzgWv42KOcXp
WgMFi/Cp8UbCJVkqei4dkel8vAi89ffXpctRUclQiPKpdBGkYhUN8uSp+Krz
7vLzl4vQatE09EGRiq2rBdVXPyzCWZvE6R1qVGSxqDLU/70IQ9bHfVV1qegw
NrAvW2YJFFM7VtKtqCimlkNPU1iCYv3CA737qDgS4aF6WWUJ3hz2OiVpTYx/
47hAiPYSvOxcXnluS8VLO+c6LM2WoJ/UZT5/mIrPo8mOqyeWoDW2TaHejYqC
4nKejg+XIMfgY0I50Z8lJV+ye1i0BB9krmvZRVKRi/U3fbZ4CeIMBUiMM0Q/
1f+QEv9iCe5H7mKDC1Qcv73jY9mHJWh+M3drhOj36reJK/FMLEFnVeGbu0T/
GMi3bf6lyjLYfn4w9OwpFf+eOz1A0lyGtxl5zzOeEfma6vy0b9cyCJy9W3O2
gorOzdcf/Nq9DHkHSJ7Wr6honih4iN92GV7xHtXhr6eiONfGV57By7AQKO6/
QvS7LSyc57e+WobbC93fzs4R/WRRuqNVzTJwiT+Sv8ug4trDsrti6pfBtE+v
rGGBilhiMTvbtAyK4/6u/P+I+XRNdW/+sQzuqrKmjSQaXnottidmdRmep7j9
ztpCQ4OLugJz9BU4PDLSvKJLwzLO/3KbG1fgjeG2Tw+v0HA4/Nyfqo8roM6W
c0MxmYZbpq6oFX1ZgfnV52HlKcR54VthXdy3Fei4fDfxYzoRL3+4hz66Apoe
4St892nYsufw5jLOfzAxdr2EjTjPTCbqx6Yb/wO51ov084M0lBPk9XRt+Ad/
uY5rbKcLIf/jl4U5jf/gj5D70VBDIVw08fg78vEfrCu4btZiIoTvwqsCfdv/
gbtXvXm8pRAeG/Q+E/7rH1zb22dAcRDCzNLGlLS1q1B5+KN8XYgQrt9/ofr9
3lXoKomLlC8Rwr+J8wKq7atwNWRUokleGMcnherku1bhWLFVR6qyMI7tN/aV
6lmFlMZZHVd1YRzcdKORNkzcnxm5g01XGLtua0Vyzq+CCW9Ztpu5MLoeqJqZ
4FqDI03g8og4b+71YHGolyGcYmZzqFAYxWNiFH0912B5y6s/6hQRHDjc3UX/
tQbHcjlvTzwVQZOh1oUyHxZcpRZ0iISJYoRsYthjPxa0UuMrMI0UxRJ/k5W8
ABbsgsqbgedEkfLv1ZpbQSw43v+1qzlGFCc25ZLPR7Kgf7nM4t0UUUwxCRG0
SGTBp7PJ/I8fiWJfAVV5uIgFezVGX/oPimJIgNvxTX9YsPPuUYlVOzGM3TPh
of2XBYXkNhZxHxHD6xLBHo5TLGipkKlCcxLDZ+2x7rlzLGhnaadn7CGGM9qF
xzT+sWDsE7Gs6mAx9GGbcbbbwIrDCspvd6eL4dGUs4fSlFlxxrvIrbBHDC2e
3TTbFMSKzxT/CGb/J47HZ1xXBUNY8erHxFrFEHG8oCTzVDCUFcPWJBfUhYtj
RX4FTTCSFXt/TxpOXxRHsayvk/zRrFgyo/Mz5IY4zsdsuL4xjRWte/8ZSFaJ
4+1DF35yP2PFg8b3L2/ilsCJZc9wtnlWZDS9tGMplcBDB/dILzBYUVJzKsGh
QgLrS2XbJxZY8XpQR2FlpQSme44rdq2wok2k+pO4dxJo0Hny5xMONnR5XaG6
r0cCb5b6mTkKsiGz7aH/Ha7taOIZtOW5Ghue5yFNuLhvxzsd5576/MeG4h/K
W/bKSuJwg1Jv4ik2fP+9jddKRRLlnvaufRzMhgqjPdIHtSTxWZKu098w4jol
kxRqLIlNpgtr/aLYcDJIVIzjmCQyX/o5+aeyYR5LaKXebUm0yHbiCixnQ4qG
zTW/zTtw8biu8+klNvRcX3oiQkgKzV7K4KkVNhQZG4q9KSmFN3m2iPivsuFw
X2xIjYIU6pRM9x5nY8d5NtcRIZDCyKUHTgfXsaOW/c9fCs5SyJbI56RJYce9
qUfD7t6TQu7SXw5z2ux48sPNffxK0mjP8VV3Socd/cnn0iha0lh0oI72R48d
d/5mrZalS6PF8q0fg3R2zK1Z7TtqI41Jhvsd2szYMYOVHqx2WhoFOl/Zlx5m
x69TPSlO9dJIW7l6xD+UHWOkZswlXWTQZGDv8+vh7FjgZ35ks7cMBr5du7kq
kh3dw3O1+YNl8P3Vcy1cF9jx97FdebIJMhgk6W96/xI7OkhJjvQ9l8FmSyvN
jlvsGGjFdt9TUBbP313Pr1vNjqYS97N8vspiUcx7v6O17KjQn8P6rV8WO72j
P8W9Zsdr3ylWVhOyqKD5L679LTtSwwLm3chy2P3hzxq/ZnY0/BKSoKgth2pz
TRN3+9lRgrPZbO9dORw2vvSek50D2xp+vTCKkEfXPc4i20kc6M3NPa56SR5/
WKgH6XNy4O2iEkmldHlss+0VDeXmQINgK0G7MnmsO6p6+rcAB67Kj3gdnpDH
zDPdOz5t58D+6cjdh48qoE257MVrxhwYF5T29PchRWx+sab7sSkHpu9X6xo7
oYh7qr4qNe3hQNvPe2yXTysiveHMd3YrDlzXvVpvl6GISq2tqkEHObA45M/I
eLcicv8NGzh4ggO3PV7hcVBWwteSTSB0iQNnWHfJ/qxWQrPEXrNNCRxYIdl8
JPadEjbPTduuv8KBPV/mj2t+UcKe+q3e/5I5UDlx9+HSASVkunrc6MngQL3a
vhMSJGWUy2Kdup3PgRhkrL9ooYxpm7XuCr/nwKM8XbpzI8pIPWNetLmJA03c
b1xkTivjvWGnig2fOPAEzYmFc0UZn5RFf1r9woFrwgZ+79mogh+s2xZ7v3Fg
C48q84S2Cq5J8rXOHuXA8KsqS3xXVNCTM5dddC0Jm49cW9tAV8UPrLEJu9eR
sJDX6mGopSrKrZzY5M5DQh6/rIN0e1X8OyUvVbCRhF9E6sI5g1QxsLtsj/o2
Eso1jW0MzFfFiEcNyaayJBz51Z78e5MaJtkMiQTsJRHnMt2fCatqOGXx9mGK
JQlddD9u7VivjvtNH6qU7yPh8qdrK5pC6iiod9Jg2ZaEEw5eOfq66pixY84j
2pGEPQW+MaHh6nh/kf1xhi8J1aseOZatqmN5toTu66sknKyqsOahaKLEqkFY
7TUSqu39+faCnCYmObg9r04loevbXtZNepp4fFuu+qt0EtaGhLcmumjitpQd
CmV3SPhUQXfnt4eaGB4jI/ygmISW5w/krcedSPdRYrn0hYQOtUv3t13UwkdN
VhDXSsLvRl0bMzK0kCLrHxHzlbg/gmYET7Rw9lfxwoVvJKxM8Exa7tbCHBfV
6fB+EkawDTXuVddGTluNnz5TJFx3ejw87682ftql07B/IxkzB/q5z0XrYHzF
qSUjfjJG+J+l89zRQWP1x8q7BMl4S6z1VtNLHaxRELstvpWMFd6t3L+mdLBU
lDN4VoSM8mw5gTeddfEGuU0qTYmMRWlRXFdM9NA2iscpXoWMzcZfgq+76yEf
i3FqpBoZB9H2wI8oPby0+JzFYycZb9zUcJSo08PIP1ldmkjGoN/fPz0FwKOt
Xpe/WZKxXHMNx3txRBGrnLqP+8g4ub6FPqqG+L2ph1lrTUZVJc7v8kaIdm/2
ueUfIGOjy+e10icQTZ5r6oU5kbEKeqTnniAqZLFNUn3JuFVvS8FhE31ket60
dk4ko5lNckRqBh2vhN4jn0kio97DZzp+pXSUjC94mZlMRg7qmsnEJjraPnwp
3p1GRu2no8m3VulY8qt7xjaLjGU3TGq3nNiN3seoKXuekIlzwFxIvpkBsgVK
mHiWkJE1QsTW9rgBZlyQW459SuTj8bbqg9EG2HhX59ibCiKe/nKI72sDlOy3
V9OvJaPATz1DLroh9jlktmm0kNFe1n7y4n4jDD6ZE2vbRsY9OVpy8UFGuD6i
SCewnYzxiTqf2G8aoe6tyvvFXWTcZH4xxH3ICDO6fgTK/STj96AdesJnjdHm
gJCg2CwRP9E7rOqzCf52l2zEeTKmVfP6OS+b4PkghQgnJpGPZpeyHGlTLE7V
G7q1TMbSaLsjUtGmeC6JNXyKnRP///8O/weqTh0v
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 5.},
  DisplayFunction->Identity,
  PlotRange->
   NCache[{{0, Pi}, {3.4934106189782406`, 25.448211153570867`}}, {{
     0, 3.141592653589793}, {3.4934106189782406`, 25.448211153570867`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.46945215706855*^9, 3.469452200221246*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Heuristic model", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, 3.469451011535277*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.4692784482487173`*^9, {3.469278892566986*^9, 3.469278908586074*^9}, {
   3.469278948273715*^9, 3.4692789822518587`*^9}, 3.469279051396206*^9, 
   3.469279172313555*^9, 3.469281290688089*^9, 3.469283763985681*^9, 
   3.469287450972332*^9, 3.4692916006669083`*^9, 3.469291820514844*^9, 
   3.469792723332807*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", ".003"}], ",", 
     RowBox[{"k", "\[Rule]", "15"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".02"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", ".04"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}]}], "}"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
  3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
  3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
  3.4692915966092777`*^9, 3.469291597442411*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{
    RowBox[{"DSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"k", " ", 
           SuperscriptBox["hIn", "2"], " ", 
           RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["hOut", "2"], "m", "  ", 
           RowBox[{
            RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        
        RowBox[{
         RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
         "\[Theta]Initial"}]}], "}"}], ",", 
      RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}}],

Cell[BoxData[
 RowBox[{"\[Theta]Initial", " ", 
  RowBox[{"Cos", "[", 
   FractionBox[
    RowBox[{"hIn", " ", 
     SqrtBox["k"], " ", "t"}], 
    RowBox[{"hOut", " ", 
     SqrtBox["m"]}]], "]"}]}]], "Output",
 CellChangeTimes->{3.469279172566238*^9, 3.469281290859393*^9, 
  3.4692837641579523`*^9, 3.469287451129204*^9, 3.469291600792757*^9, 
  3.469291820642007*^9, 3.469792723516617*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.469279288793222*^9, 3.469279335006296*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"hIn", " ", 
    SqrtBox["k"], " ", "\[Theta]Initial", " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   RowBox[{"hOut", " ", 
    SqrtBox["m"]}]]}]], "Output",
 CellChangeTimes->{{3.469279290719293*^9, 3.469279308679018*^9}, 
   3.469281290900819*^9, 3.469283764196391*^9, 3.4692874511698847`*^9, 
   3.4692916008315697`*^9, 3.4692918206919823`*^9, 3.469792723561266*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.469279288793222*^9, 3.469279335006296*^9}, {
  3.4692917878701363`*^9, 3.469291804973325*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hIn", "2"], " ", "k", " ", "\[Theta]Initial", " ", 
    RowBox[{"Cos", "[", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], 
   RowBox[{
    SuperscriptBox["hOut", "2"], " ", "m"}]]}]], "Output",
 CellChangeTimes->{{3.469291788253261*^9, 3.469291820764811*^9}, 
   3.469792723784855*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"m", " ", 
   RowBox[{
    RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469281315932843*^9, 3.469281321620799*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"hIn", " ", 
    SqrtBox["k"], " ", 
    SqrtBox["m"], " ", "\[Theta]Initial", " ", 
    RowBox[{"Sin", "[", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " ", "t"}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]], "]"}]}], "hOut"]}]], "Output",
 CellChangeTimes->{3.469281322319522*^9, 3.469283764272977*^9, 
  3.469287451244597*^9, 3.469291600893818*^9, 3.469291820819189*^9, 
  3.469792723837706*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", "pVals"}], "/.", 
  RowBox[{"{", 
   RowBox[{"t", "\[Rule]", "1"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"-", "2.193676704226083`"}]], "Output",
 CellChangeTimes->{3.46927920125646*^9, 3.4692812909651318`*^9, 
  3.469283764313188*^9, 3.4692874512701893`*^9, 3.4692916009428587`*^9, 
  3.469291820862997*^9, 3.469792723887793*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"period", "=", 
  RowBox[{
   RowBox[{"2", " ", "*", " ", 
    RowBox[{"Pi", "/", 
     FractionBox[
      RowBox[{"hIn", " ", 
       SqrtBox["k"], " "}], 
      RowBox[{"hOut", " ", 
       SqrtBox["m"]}]]}]}], "/.", "pVals"}]}]], "Input",
 CellChangeTimes->{{3.469291537832909*^9, 3.469291574897297*^9}, {
  3.469291611412964*^9, 3.469291613643629*^9}}],

Cell[BoxData["0.17771531752633463`"], "Output",
 CellChangeTimes->{
  3.469291543318783*^9, {3.469291577607161*^9, 3.469291615506093*^9}, 
   3.469291820896101*^9, 3.469792723944265*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", ".05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469278800037665*^9, 3.469278831712234*^9}, {
   3.469278863106338*^9, 3.469278881443396*^9}, {3.4692792101778393`*^9, 
   3.469279211901314*^9}, {3.469287456939126*^9, 3.469287472322201*^9}, {
   3.469792728232666*^9, 3.46979275243246*^9}, 3.469795381635676*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", ".05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469278800037665*^9, 3.469278831712234*^9}, {
  3.469278863106338*^9, 3.469278881443396*^9}, {3.4692792101778393`*^9, 
  3.469279211901314*^9}, {3.469287456939126*^9, 3.469287472322201*^9}, {
  3.469792728232666*^9, 3.46979275243246*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nlYTV0XAPAGUkpCgxKVhDdpQGVeiSiaZ500UxLhvUKoDCUNKqVZSvee
c696r0pp0LBVSGkgaUBC0UU0oE+kb/nrPL/nPM85a++99lpLzSvQdq+IkJCQ
hLCQ0N/njY/lrOaLczZHhhgcz25pq/YXkSNFssObq4OmAvI6+DU/5gcXxMkK
wZntx977dlTXbGTnLw+RlYEJjpyiSUdLzWvBfZ9jsqrwumfqkk5Hb01hzFOR
I7K6MCYjUJXt+FKj1Nv15JCsEWTVnH1f9+xPTYuYa/lBWWuIWgB3Etqliewb
i92x9zxgGn+3/E8pVXJkVca76QN+sN3QKdrq6TKyiBU91Bp4GEiixEXH/Tpk
4ojnVH4dC4reZ65RbF5N+P9Iz89oPgE6mbXl+mmGxGla+3ZF7TMgHuX2xZO/
gWREKsjLVoXBoNwquZs0kPFPulJLqs9BXID5cyvuFtLi4Tjr9McLIHNRtrcs
aytJWPUh4eVIBHxeX6/pddCEHL5Wd2T610hQ9h047K+1gzQq5rsGKUSDnNNU
dLiEGZEZm2r8qhQLG/Uawwurd5Inr9y3FZrFgZRBuatBnDnpLAiPWVgaD58P
blmoYWFJNqollL2/kwBE6KXhyXdWZE/64o92j69AgPiQfUqDNfl+b/8ek9ZE
qIfsRyXRNmTXqMHzng9J8EHnfd+Isy3R/so7bf/rKlx1OvPk/QI7EpH+1Mf2
dzKcM8oSKmqyI5mWZ22/zU2FwVNinn7n7cnywoGzSgppIMkezNu83IEY933t
XSKfDssni9rc6xyI4vywLe2aGeB+wFpK38eR+P65PzB9ZSY889Z6qzjmSP4d
Soh7ue0a3Js2PP1zuBOR4on6pjhlgfOdV55ls5yJ0rwVYc+drsPkxmem9Rec
yZhxQOtLg2yo+Dow4D3pTJLar4XGl2WDQDaB/XbvbnJ6543tdwxzoMp0o39a
/W5Sd3+/DP9eDlSwS1tTFrsQk/lSv3yNb4DJI67S8BEXohF4ZHCs+Qakrg0a
rqh2IUbXCn9ssc6F/Sc2BPInXcgVgcm4kW0uUMFpVNIfF/JOv2cc7HNBtCWv
/uSUC4loEfm5yTkXSidfSG0VpsjjKbtf6zxywWHOCKt1GkWcvX5M6R3OBbFW
zexWSYocWbZBYnF8LtD/MzE5qEiRG4X1C0TacmHCLmNAeTVFps/08dF6mgtx
HzQvjqL9vET/c3yWC1rnpWMfrqGI9jzjzXldudD6qPp+oAFFKlg1HvZvciFN
CT6WraPIU8MKDj2aCwX76F8rjSgiUn1LZ5ccG2xPi6rmmlPEuzF9a5ILG1Js
JYLLvCmy+HJVUporG2TozIOUD0Xe2vQNZLmxQWwRp2sS7dWtEcnzYkN8p7jc
ln3owYLH1f5sOBtdt/SeH1rsoYMgmA2C81Z5zEGKeBqP+W7OYENaV5q69HGK
qIrJl2+9xgY+0z91Hd33aO1Ms+tsyIzbZqd3giIeNiH5drlsmHBZ6257Eu0h
MeKXx4ZV5jmSl0+hQ1SCE++yIaZSqvhTKEXcK3bFDL5gg5XkcV2jSIroRp3U
UOxlg+escW4TWsSFqTbrY8NVA7Mwx0sUYf8UGbnZz4bFVk67/KMo8nFthcPB
ITaYZ9baRsVQJKh0ucroHzaMvVBbkh9PkZji6UW/1Dgwc8vSyqBUirhdWL1L
awkHxD5LSnxB69h79rsu5cCvXXuLfdJwv8cq5as1OfDOzm+pdTpF5q9mnQpb
zYHhIz7HVTIpklv4dtt0Ew6onBxsvH4dz4tf0yntxwF755Cly2iKLGk0Xafv
z4E1AUKHI9FxA0/SqQAOWK4NXShA+yj37+Ee5gA/yJ/NZSgiHSXev+UkB5bf
rfRU5eH+77UZZkVxgFkSnjqah/kX1mOTEcOB13E9qjvzKWKY6X373mUOmK+V
mpWDlmo/FiSdyAH/9N8yFv9R5I5R+m8mgwPqXS8fXONTRFL5nfiLfA78WSYk
UCvE/TEM8Be+xYFb4hv4geg+2+9Nywo5EKWs31mJvnNpRhyrhAPV8zzsHYrw
vMZXyElXc0D0lNevkNsUKX7KUtvSygEvG/5EcQlFXC+JrWdGOCBQJ7fzynH9
MvPY3DEOrP83QeIt+lOyivTN7/i/fVs6FSooEsxe+zb/Jwd+L1jXcxadWuMf
VSRMw/fQAyFWdynS/r2lp2oODUyVCDyppEj66RfbaubRwNEznTuF9hId5BM5
GkKE9uzRqqLIsIzw+TpFGhoMR1zC0dJaq1c8UqOh2i1/TLeaIju9Uk4906PB
5lZZ+qEaiswV5A50rKah1yzhYyK6O7DAqlOfhuwrWkVlaL8zj9R71tEg487l
ChGKRKT+anq9hYbJhzmrotCWKuIGb7bSYEafNspDy9Gy2W9NaDDvlH3QhGbf
XskaMKPBvyR4reQ9itS2uCt/sqHhvzjJivPoKIeAiM92NGipkPBstM3LE8ND
DmiLlY8q0X2ChPrh3TT846pTOob+M60+4IcnDY5VdTpULUUeRLc9H/emIYuj
Xf4vOnbuK6Ofe2k4pGJZEY1WVv0h+3s/DU9GueoV6HUbllcJH6XBu/veFZk6
XH8LBGqzaJD/oHFpKfqjh5MaFUTDL7Lj9QZ0ZkREeHEwDS7DtTd90McUswzf
nKbB3mWB6gm0ZX6JYFYoDdHlOt+j0EJP+y18z9MQwI2q5qO7fX5PJYbTcG5/
W1ENumh8XhG5SMPNc21ibWifhVvllWJoaNrxp/kLelOBS8P2yxiP8Yotk2j5
rUeD/42nQUVvjqxkPUUa/HJ6HyfR0FEo1r0EnfOrLP5nMg2VfLkmXXTw5Tbj
pWk0vAl6qbwRbac2+M02g4YPDS4t29FaxVN06DUaFHzjX1ujp+9Q2J1/HfNB
4Yy1C7q3W1uyO4cGxVxVNW903NSewFU0DW7h0W+Oov2uHFNz59LwOcz2yUm0
kUZsezQOBto3WlXD0Ipl7PCyfBpu14u0haNHd1YaDvDxvB9+6o1CN71qF8wp
xHhioyzi0OzDnzI236ahebJ3QSL6jKio5YESGnyFBWbJaMdkJaHUUhqcIrid
qWidf1YV1ZfT8PbMwvvpaPFKM5+RuzS8f7ljbib6jaWn/KJqGvoyltX8dcWb
Ew07CcZ7p7LprxNZ8cHHa/E+rJyx9q8DZnC12PU08EVnTMtAm6TX9LY9wPOB
Sp009KKVnfGTDTRs/7z07t94xmu+GGs20ZCnsIP+G2+brdh3x2Ya6Hblkb/r
4Q0sZM630pCuz82IRp87ob+74AkNsY4CTgSakrSQfNVOwxK7vtln0WuyfKok
ntOQtiu2OxgtpXc60KCLhkbvYREWeqAuUc27hwbdOomYAHS1Y1573Esa+pO6
WT7oZEFteGUvDSkzPKoodODpHkNBHw2ZFtf22qJNZ48K5N5hPmQmHDRFq92Q
yDQeoGFUe1PHJvTEGjXLwA80jBtlZ65C57tYFzV8wu99it2phA4f8vX5PkTD
VRlFvVlot7BQ+cXDmC8trsenMD9laH7wqW80XLSfrf4WzRqR2qo9SYOakub4
dfTNr8yk/hQNu09bysah+4aMyzYJM7DYspZzBm3+8cRKi+kMjOekaexGq7/r
VwiYxYCX1Zw0CbTzm9Cn/85mIMv9rvM3vL+XXyvFnprDwBdBaUwveuKFtUi0
HAOrl960KUQ/fVb5mbeQgcnBUCtrtHi7E1OowoCJV2OhAXrzk1HPcjUGns8+
EKmM5jUv72zQYGCeYuGV91hfwh4k3fuwkoFTP9wWsNA6ZQHJGpvx/0frJllY
z3zuzLBZacRAR38xxxadXnxDUt+YgUppsVodtFhhV9i27Qxc2tnoNIj1s5e3
7YC3JQMzjL+M26JjMpSNctwYyNEzl5TGelybVjrB9WDA2S/h51us1/9LsS0p
8GKAl2rsWor2SYrUJPsYSHf8HOKG3hD7Tfb1IQZavh1bR2P9/xjyWKAcygBL
XffCAuwX5Q21AUpnGXAJyK4ZxH4SObf8q8J5Boa1J1gl6KU05/vciwyUiR6y
sEB7NYcIS8Qx0Jt3tCQI+1P3Aj3F71kM7Nr+3KuglCLcvcsyR7MZcP/htOkY
OujWQpXhG/i+rT1hHVp260yNTzTGH1HNJXcoYu3/TvcNH+P/J+xyA/bDhrKr
ps3VDOhKV6+vwX6ZIhLT1EgYUNcILDmF3md+zrKhlgGtrJU3DdHT+g7Z1z1g
QOVVpzAf+63RDFOP8hYGMjXF/JOwH5c5TBzn9DKwTm98kektijCjbsyZPwyU
Kitq7LqJ6zX1OEoLcWFhXV3JV5wf/LI8N7WKcKHny/+4iejlO33aVWdwIU1C
srSbi/mZs3+qbjYXPgaJH3XD+YNvzXKaqcaFMRGTvTvZFCnhX5qRspULx9S8
rfOv4X2bFv20xoQLjh5pBpvQQS4x1wZ3cGF8/43QZpyHDMTiVq8358KhNoP1
nzMw3j1J7q/suZBpe8tmMc5PlVLXS9X3cSFqYKHUkWSK1PkX+xZEcsHUL+te
6mXsH1rrNhRHcWEqbXHjIvTmoSrpshgu6C6S38mOxe8FPiypieeCyjX7gv9w
vuOzekRbU7kw8/xR+Qqc/1JDhLKHuPh+pt2u8giKHLpi3qX5iAvel9fvtwmh
iFJFvylHggf+9YMzBQcosv8iy+eZJA9cRQQDgC6znxYmKs2DI8nGasn+WH+/
qpd6zuUB12BOudF+iiQs8dZYtIAHYi6XDl7GeVk87o1wihYPHFfsHpL0pMh3
796KSCseENcOnzgHrI+zurQCrvJg6XL5xeUbMZ+n+b09jdb6NjRQhP7fxHhK
LNr6TA4vH602qCB6Cz31IEM3G3201ql7BP1z7auNF9GyxzvDjyfzICMr0dIB
7dz3vPdcCg/u32xxHNlAkc/P9yUlomdqLpL/hA5r/mHGRh/1NevoR/Mq5Evu
ox8rr7brQk8kOUaLp/Ig8aidRQ060+y54WV0+ZOH62PRukb7hrLQ8w3bxyPQ
9QY/btxCL6IqisPQQ+ry0k/Q214v0GahN/9x6J+XxoP3XStUKPTTbwNpS9CH
18i9sEfv+3TMSh/db9mTbImO67pa4Yi+TcZnGaOXtGoc9kUrz7d+tAFddr9E
4wQ6QfvCBX20eaXJi0i00rQk0EH3FXXEp6FrU0MnlqP/D1+ZYgY=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.05}, {-111.07207005910067`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4692789088211737`*^9, {3.469278948557959*^9, 3.469278963391404*^9}, {
   3.469279204610153*^9, 3.469279212808896*^9}, 3.4692812910466843`*^9, 
   3.4692837643641663`*^9, {3.469287451304944*^9, 3.469287472640568*^9}, 
   3.4692916010525703`*^9, 3.469291820950418*^9, {3.469792723998355*^9, 
   3.4697927541928596`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Heuristic model 2", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, 3.469451011535277*^9, {3.4697923342504873`*^9, 
   3.469792334418314*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.4692784482487173`*^9, {3.469278892566986*^9, 3.469278908586074*^9}, {
   3.469278948273715*^9, 3.4692789822518587`*^9}, 3.469279051396206*^9, 
   3.469279172313555*^9, 3.469281290688089*^9, 3.469283763985681*^9, 
   3.469287450972332*^9, 3.4692916006669083`*^9, 3.469291820514844*^9, 
   3.469792441847259*^9, 3.469792574209753*^9, 3.469792761713189*^9, 
   3.469793144953557*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", ".003"}], ",", 
     RowBox[{"k", "\[Rule]", "15"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".02"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", ".04"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}], ",", 
     RowBox[{"B", "\[Rule]", "1"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
  3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
  3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
  3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469792465925961*^9, 
  3.469792488714308*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"k", 
            SuperscriptBox[
             RowBox[{"(", " ", 
              RowBox[{"hIn", "-", 
               RowBox[{"B", " ", 
                RowBox[{"\[Theta]", "[", "t", "]"}]}]}], ")"}], "2"], " ", 
            RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hOut", "2"], "m", "  ", 
            RowBox[{
             RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
          "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",",
          
         RowBox[{
          RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
          "\[Theta]Initial"}]}], "}"}], ",", 
       RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}, {3.469792394632051*^9, 
   3.469792431184136*^9}, 3.469792734935874*^9, {3.469792971685051*^9, 
   3.469793046089113*^9}, {3.469793130677544*^9, 3.469793135285651*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DSolve", "::", "\<\"bvimp\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"General solution contains implicit solutions. In the \
boundary value problem these solutions will be ignored, so some of the \
solutions will be lost. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/DSolve/bvimp\\\", ButtonNote -> \
\\\"DSolve::bvimp\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149235249*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Part", "::", "\<\"partw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Part \\!\\(1\\) of \\!\\({}\\) does not exist. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partw\\\", \
ButtonNote -> \\\"Part::partw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149313026*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\({}\\)\\) \[LeftDoubleBracket] 1 \
\[RightDoubleBracket]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149380864*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149435318*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149437017*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149438613*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149489463*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149491139*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149492714*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"$RecursionLimit", "::", "\<\"reclim\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Recursion depth of \\!\\(256\\) exceeded. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/$RecursionLimit/reclim\\\", ButtonNote -> \
\\\"$RecursionLimit::reclim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149494276*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\($RecursionLimit :: \
\\\"reclim\\\"\\) will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149495899*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\({}\\)\\) \[LeftDoubleBracket] 1 \
\[RightDoubleBracket]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149497574*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\({}\\)\\) \[LeftDoubleBracket] 1 \
\[RightDoubleBracket]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149499228*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReplaceAll", "::", "\<\"reps\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(\\({}\\)\\) \[LeftDoubleBracket] 1 \
\[RightDoubleBracket]\\)}\\) is neither a list of replacement rules nor a \
valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149500773*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\(ReplaceAll :: \\\"reps\\\"\\) will \
be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.469793149502264*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", ".05"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469278800037665*^9, 3.469278831712234*^9}, {
   3.469278863106338*^9, 3.469278881443396*^9}, {3.4692792101778393`*^9, 
   3.469279211901314*^9}, {3.469287456939126*^9, 3.469287472322201*^9}, 
   3.469792650644711*^9, 3.4697927592582197`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{1.020408163265306*^-9, -4.007133774519523*^-6}, {
     0.00001533589602798134, -0.06027011111123563}, {
     0.000029904027866808508`, -0.11760849414268768`}}], 
    LineBox[CompressedData["
1:eJwV1nk8VN8bB3A7SQuJQkRkSSr7Uj3IlqUsIRIKzdyIwtcSlchSShSyzNwZ
20TIksh+bCWVJdJClLJEkoRC9Tu/v+b1fr3OPfecc5/nc0b6pJ+tFwcbG9sW
dja2//8GOIj4H7bUgcPDfJsuVf9qzK4NtX1uqgvV1g08ShW/G53/eJeFyejB
dok+Wb+Epcbe2o/N4fv2gnFus7R1wXKj5adY41Vy+yA47dCEWNJKo1F/yjrr
7fthWlHJhev2n8bwTzMPq8UAbDdF13jE/W1c6i73eC+mD8rqQ27fc/81pr4e
1hRK0YcdlprdsVZsSHVIgN90nQEsjvvPtLSzId/6J7ee0AzA+YjBfJEjO+Jv
/em1ImIIvAPmygd72dFSwfqlq5uN4ED8rU0F7zlRUI6o284MI2hbVHhU586F
ftAkW7vFjGFytv0t+2cuNHlTOUFUwgQKSjbUb53iRqeuqs3V0Ewgn78wfsmX
B41E6h513WIKfeJyC9xzPIhMvZEum2QKDrtHQnhP86JaqkzFBjkzUHo0pWDL
wYeO+h2ONWOYQbQY1xbbCD7UR3X4OiV1EE44CmvJcq9Cz495VqpKm4NOHVfe
8XX8yMzeW7w/yxyWM29wtyXzo9ZD/hGhMhbQZvhB3VVsNdI3Cx2VyLEAawsT
HUXmakRTdx5UUbIEc5djAe+UBZC2XmyJR64l9Dgcf3ekSABVqCcI88pZwd3J
+KiHqmtQkTxtyGr7IVgOMWMJ6K9FnTwu1WeErUHRWfHMVZX1SPijldONJneo
E/nmt6VRGp1TzfzEPUqFxgjzP9X0HUgyMH66y+8s/InMvP1jjRpaOnfiX1FL
IOht0Kxx1dBB9xXXbsp8EQLtXfDUygOQI1evyWaVC/ANeelbmh5AmXGiIsL1
EfDWzTbViM8ULU7tFpBtiIT6mfCu9Dpz1OnusCZ88gp0xm7cNr5wCCWpjicN
zsaAoBm7pe11G3SW3nKOeyYOKpoOhrDftUMdm4tcgkTjoZz3GEHldEDr5/51
zIjdAJvXf7J5TY+invduRmUHb0KONal0ot0ZvS6Nvr6lKhFcV/t2XDE5jvZK
Jz0aq0yC6Offci/S3NDxDJlJu+e3oKLFXkxJ8ASabyKOG3fdBjpjnLTSPYks
fmj2vxtPBoFl9Q8/AjyQykxB+JHlFJhzuvTSO9MTxWS89LRdSQV7K7MtQkwv
RDt02fanUBpwb3xX3Z93CimUjV4WE02HYy9Cp49GUtDnt06FIuLpcISR9DY6
moKyODr7hKTSQXrHsGRZHAWJHamUXy2fDqVKPGUcNylo9WLMi2XNdBjR+9Kf
lElB3/YqbH7vkA5xNoMH3Coo6GH76VJGajqclzMLLPlMQYYfZoZkRTIg1Fky
aAqoSEb6fFqwWAb0m5j3fjSkIvaTXLYdkhlw4Jzo7CtjKkKfNrX5yWcAr6Ex
UWVBRfvGDQprtDPgDX/1djdHKtL+djvY+lgGfOTfXKTvS0UqK1rrw5kZkDtt
kGCYQUVr9zU/7czNgHeXL3h/o1HR9AXLKOmCDHB0rRm6w6Cion/uC4/LMiCw
+sPlT7lUpMh5bVCwJQN0CsJSjpdQkSz/YP7d0QwQtCl9PNBCRZs3RRj0KmVC
RJ/2wsIkFZXvEhQYVMkEe5HbVUrTVGRpmt3/WTUTtvgk67jMUNHFoFbvBd1M
ePhFLezRHBWN9PGlbrbIhFP1Yf32K/j9SUmTbt6Z4Pr982+ZNQTSX51z+2th
JnRQ653/KRPorYy663xJJlTp+Yp8USGQv26bwt8HmdB/cvXZ7t0EyiPG69fV
ZcLp/Q9/3VEnEH/7jgnV55ng7BdgwL+XQH1XKvaGfsXrsZNuOG9OIMrftlHu
nTRI/b27N8qLQLIqZ/S99tDAP+x0kgGFQB+OC2e2atDgcoiF8wqVQEfrT1pH
7adBdl8cD+FDILPwfzVs1jTgvZ6eLRlAIKUl7cRlfxo0dD6o/H2JQGOKHyad
g2nQq64WFnuZQNlOscY1YTQI7DmvLhRFIPHqV0shV2igv3nmkmQMgQRC/L0W
Umhgsd/8iNB1Ak3PF+rOPqJBxfs9zV53CHRPzi7Fup4G0U9ndzWnEeiU/dJM
SRMNGM214eIZBBqqMMvz7aCBRizn/VYagToDRtd9HaCBFmfUwdksApXOSo6O
/cXPz7/UKC8kkI/0YzDhpIOSxsYfA0UEUrA5k5HHSwd18lkwx30CZZXWHvZc
T4eVuxrvjEsJdMvvaM1HaTzeyfdVXgWBAqaTbg4a0WHEOzn0aR2BTlbMnJc/
SAd5FrOqpp5A1mFWp/yt6KCz5WB7fgOBlFet2sfnQAfxfC+XMITPRzZiUo1C
h+KRNOWlFvx9pt6/uuhNBztbm8GeVgK1lOs1PfWjw4Nt6UdYbQRi6i/ecQuh
Q014X7rxEwI5u/gax1+lQ4nyvN3xDvw9tj3f3X+DDjRbGTnxZwTSmlSUkL6F
1186XPEKWzhk9EdlBh3uta5bbfCCQC9uuzBHCukQuOTv972LQHXONfE7S+kg
x3FIKLkbn7f0puCQCjqw7rcT6j0EiinptVpbTwdltYI93i9xfT4zX9bppMN3
6/McZX0EUrmVP3blJR3EdCrkdV8RaIsTz8uufjr8u1+02Ii9NNaU7zWMx0dN
32rqJ9BEsVRy6Sc6xOajY/teE6g/8MKl5XE6NI5ROh5iP+DQcUj6TofyLRbJ
tDe4fp6mGgz+pIPL4oZp/rcESkz8qSz/mw6nijvG/sP2kSzlrGcnIYgi+cjg
HYG268qXTQiRIBymVVo6gPfPHk1TEyXBrMH4G+cggTjbR2IvipPAuBjZYof9
wZ50FZYl4T/JYpUv2J0SKwfdFEg4eE2lWeU9Pp9PThr3lEnIu849cRY7/dxG
AX0NEsSyh0YnseO0Axav6ZBwKy2oVmaIQEH/ukde7SPBafqmpCO252OVzq2G
JEjZLKyJw7a9cb3a24SE0ab/4h5i6x+ZzK00J8E2/t31Yexd4maJ7IdJOGY6
u5lnmECSI3lhlnYkxA3FqChiCxRwUu44ksCKoz41w64woXqkHSOh+snCVg9s
l8/P3dLdSFAwvHj2PDZX5B6XDA8SZlp5qhKwi6VSj2ZSSKA6p80xsB3ql47Q
vEkgzPXk7mP/dXazofvh8WK/zKuxWb9arMgAEiwSX3s0YR9KVTBnBOP9FY/4
PsZeULthwgwjYX2FjHc7Ntkza5h1iYRGuSzHJ9gmfg6QHUWCfQtFrQV7RqBW
LyeWhG83Iv7UYqfdk9LOjSeh8/F8RRm2vtkV9bybJOh87zmaiz0xOrGbdZsE
7RdSE7exE6Osdt69Q8KVk5MnIrC1pcsV8zNJOLGwt43A/tAgsr2AQcJ2wW2C
1thxLmEy93JIGLqQb6SGvWdpWLLwLgn85m9dN2C/u2MkXlRIQszjJtfv+Pwj
NQpEi0uwY30PdGC/POu/vqSKhOwws6pA7PNrXwuU1pLwaEeikTG2TJHeqrJG
En6I9ZQLYfuPc3E8eILnzw9SycX1IRZN/H3wjIRLXxd1qNjNMp1LFV0kqDYU
yihib3C9M1f5moQ5l/HYLFx/dcvLM1UD+P3cCRxO2J7p7l8fDZOwcS7XYQ12
RZ/iaM04CR2EZ6wPrm8X/4SPtVN4/rUqJ0WxudbPva+bIWHd7ntCjbgfjljU
9TcskjBt/O87F/bKxNbexmXcH1nLEjm4f3JjorvQPxJumM6K7ceebzrU3szL
gN4Qoauncf+lan+sfizKgALOA8J03L/7+40rn4gzYM5EslIaeyzgXnm7FAPW
JiXI5OB+1yoJKOyQZ4Dz88uONJwPb+R46J1aDAjkX7OJivMjouV0epceA2SS
Jn6+xPmicKIrpRvweGO+FF3sUFpawktTBrg/PCfOhvNIbMOOiH5HBizNXZf3
xPk12p4noOLCgMhjEcKs5zjfL25Nj3ZnwOtnukqfcd6ZTm4sVycY8ITwe3YE
52NgE9vnW+cZUH59oJUX5ycEh52dvIjXw8f3Rukxvi93LqwYRDGAq3qQ3/z/
eZs2tXE2ngECW351hON8fuHXb3qYzoBj0h4pDxpxvcrZ9LGyGKCvqhtThfPd
c+CZ+988BgynPbpRhfN/yaQptPg+A0Y2qw8W1uI8kiwqXI3wfjX/OnpV4f0/
v7yufYQBwg6GvWL4vrGIXMmUGmeAz6/0gmF8H4loBysETzHA5ML8FSa+r4pz
fAy2/2SAtMIJE5ECAp2pL9Rp5mBChcaTVz05BMpITvXeKswETS9fzTh8P84Z
+nQNajKhw+BF2uRFAmmu2kl+0mZCyhVUbnGBQCFd0z6Tukx4Mh2iVRCG+/2Y
H/+v/UwYPTB1wSmEQHz/+RtvMGUCe9uL8YRzBJK4G1J70JEJQwntIZYeBDJa
HX23MpgJCqEbfggY4fuhxzioPpQJtB/5vb8NCPT0Do9xaxgTxrlDeD4BzgvZ
uJGeS/h9K2Uu9/Tw/4l98VumY5kAF3QrBdRwfvsl3d6WxoSkw4GBUtIESu6l
X0p8xISx2LiZ4CUqOjtaLXKjhgmtR81dlxapyGLxVfHVOiZ89vRVDp2nIg7x
tYORiAlt9jqfvb9T0bmTF7X/a2cCX2h4idwYFR2adZ11esMEO+6wbZPdVMS3
bqvHtl9MsP+usaE8h4o+b927JLXEhETnp7sbmVTUqHo0SWKFCe4bs9Pb6VQU
5JDYuJEtC4jjrebdd6holM4mwceXBS/HbcQexFNRs/LHvq+iWRB6N/Nrmz8V
hZtnm1RqZcGbtts+EvupiKA+lRvSyQKRkLB9FF0qcoj5zsWzNwv6A7RoxZpU
tLt5f4u9fhZwfLzCtnMXnl9nAObNsqDRUdB2QQqvX1FYR905Cz6NknHlbFS0
lS9mR3l4FkztRN+eN1BQSxux/n5TFlD45aeJnRS09rDwr9IWPD7FkDmmQEFH
3zQMP2jLgtFd1fZushT0dXJDSfXTLOiZO/TYSJyChNc3WLX1ZEHpwOmKYT4K
8nQWih/8iNdraB9q/+kU4pqp4V7NkQ07WniD9qecQsabBJYphtmw0GVqv/jV
CzGLm5RSjbKhtbLyxPKYF1oxDHZuNckGvy8m95Y+eKEHZ0aqt1pkw6kK3pnJ
Pi8k3fIo5K1dNghunDe4VeeF/pzxWjD3ygZYaphYvuaFHrY0zO6MywZ+q3o7
XVkvJOd3bmLuRTbIKeVFuJt5In162YKBdQ48MDtQXH/+JMouaxXn6M4B8YDq
bN8gd+TRkXEg2TkXFMtUTdM5XJBbjcX1iYFcCHuYL68z64Bq7je+XkvNg9rG
wKrni9bI5SqP7t3ZPLhwVEU5wcEYya7fkJs/lwfHL3i+ENlujKZSpdbem88D
zp/dJ1LmjdD5XO2Rot95wK7MiApMNkJpjaevlbOzwHosKLa25wDqne98Vy/I
Avem0CsB5obI/OSdsL49LBix0RKOI/YjoS85o6/UWCAxyWuowbMfvfUrPfxa
gwU6hZ5u3dn7EPXC023vdFiwKzKnqHtgL4pJW342bMCCI09yfZct9VBzp5vE
lA0LAv64kHzK2uiavU/MVzsWfBP/0El7ooUGSpRpvA4sWBFcsNvsqoU2eUQ7
zziyYOrKoOWtv5row5ek1u9OLBAtTqufS9dEf7lafRZOsKDZxod4yaOBHsd3
9y96sMCpIfHuhyx1dEPovf5vLxYcc40MHtqrjiS2LgivECwwikoWLvBXQ069
h3o/ebMge8eJ5mghNaTO3pK8yZcFGmOOejI5qsi/QtyO7SwLngm5xw4bqqIS
SqDgxDkWmDb8dk8Y2YP+BwbkAf8=
     "]], 
    LineBox[{{0.044949156285461485`, 11.45898515698506}, {0.04496232204515546,
      11.81252666740679}, {0.045024278561362395`, 13.477799826255787`}, {
     0.04514819159377627, 16.815738267175067`}, {0.04539601765860401, 
     23.518798798634013`}, {0.045891669788259495`, 37.01406956268243}, {
     0.046863485985771995`, 63.66169433790784}, {0.04791785493781255, 
     92.48439755307857}, {0.04890171541989137, 118.85249359663078`}, {
     0.049968128656498245`, 146.32618627851753`}, {0.04996862663029658, 
     146.33865785520177`}, {0.04996912460409492, 146.3511290542326}, {
     0.049970120551691595`, 146.37607031908726`}, {0.049972112446884945`, 
     146.42594831423486`}, {0.049976096237271644`, 146.52568615242853`}, {
     0.049984063818045044`, 146.72508910954562`}, {0.04998456179184338, 
     146.73754857064043`}, {0.049985059765641715`, 146.7500076521016}, {
     0.04998605571323839, 146.77492467587845`}, {0.04998804760843174, 
     146.82475416511244`}, {0.04999203139881844, 146.92439489644124`}, {
     0.04999252937261678, 146.93684827598153`}, {0.049993027346415114`, 
     146.949301274898}, {0.04999402329401179, 146.97420613061487`}, {
     0.04999601518920514, 147.0240112718465}, {0.04999651316300348, 
     147.03646160466798`}, {0.049997011136801814`, 147.04891155637102`}, {
     0.04999800708439849, 147.07381031617456`}, {0.049998505058196835`, 
     147.08625912415124`}, {0.04999900303199517, 147.09870755076216`}, {
     0.049999501005793506`, 147.11115559594475`}, {0.04999999897959184, 
     147.12360325963803`}}], 
    LineBox[{{0.00010887863730887158`, -0.42989620216290514`}, {
     0.00012268002536670785`, -0.48472298302657746`}, {
     0.00024535903032525246`, -0.9753790621981435}, {
     0.00025992716216407966`, -1.0340400967486443`}, {
     0.0002752237005948482, -1.0957247403087944`}, {
     0.0002944306323086704, -1.1733098364891215`}, {
     0.0003066985328045248, -1.2229418178627092`}, {
     0.0003212666646433519, -1.2819574253456272`}, {
     0.00033656320307412046`, -1.344014568591602}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.05}, {-206.993215148716, 147.12360325963803`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4692789088211737`*^9, {3.469278948557959*^9, 3.469278963391404*^9}, {
   3.469279204610153*^9, 3.469279212808896*^9}, 3.4692812910466843`*^9, 
   3.4692837643641663`*^9, {3.469287451304944*^9, 3.469287472640568*^9}, 
   3.4692916010525703`*^9, 3.469291820950418*^9, 3.46979251350049*^9, 
   3.469792633950169*^9, 3.469792706596325*^9, 3.469792767125662*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Heuristic model with linear change in in-lever", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, {3.469451011535277*^9, 3.4694510338026876`*^9}, {
   3.469479970556417*^9, 3.469479973283457*^9}, {3.469793208520671*^9, 
   3.469793224224224*^9}, {3.46979579304276*^9, 3.469795796273385*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.469793349824625*^9, 3.469793434749823*^9, 3.469793514246719*^9, 
   3.469793553222492*^9, 3.469794815476325*^9, 3.469794895859846*^9, 
   3.469794967676996*^9, 3.469794998812542*^9, {3.4697950372387943`*^9, 
   3.469795078912242*^9}, {3.469795206200234*^9, 3.4697952212795153`*^9}, 
   3.469795338471965*^9, 3.469795409552553*^9, 3.4697954614953947`*^9, {
   3.469795504380664*^9, 3.469795547116843*^9}, 3.4697959205843573`*^9, 
   3.46979607066083*^9, {3.469796121943253*^9, 3.469796175003022*^9}, {
   3.46979621201355*^9, 3.4697962448683367`*^9}, {3.4697964012182837`*^9, 
   3.469796449248075*^9}, 3.469796545393701*^9, 3.469796630048656*^9, 
   3.469796674011136*^9, 3.469796729507155*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"numLs", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", "1"}], ",", 
     RowBox[{"k", "\[Rule]", "1"}], ",", 
     RowBox[{"hIn", "\[Rule]", ".5"}], ",", 
     RowBox[{"hOut", " ", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}], ",", 
     RowBox[{"B", "\[Rule]", ".1"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tSim", " ", "=", " ", "10"}], ";"}]}], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
   3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
   3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
   3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469452529856844*^9, 
   3.469452530300722*^9}, 3.4694534011632032`*^9, {3.469453447710578*^9, 
   3.4694534509955187`*^9}, {3.4694577715276527`*^9, 3.469457775591733*^9}, 
   3.4694586186465693`*^9, {3.469458898172937*^9, 3.4694588983069963`*^9}, 
   3.469793317289383*^9, {3.469794873587481*^9, 3.4697948877388277`*^9}, {
   3.4697949372558203`*^9, 3.4697949463186607`*^9}, {3.469795029459815*^9, 
   3.46979502972163*^9}, {3.46979506811007*^9, 3.4697950682836447`*^9}, {
   3.4697951513781023`*^9, 3.469795152016755*^9}, {3.469795214877927*^9, 
   3.4697952151716547`*^9}, {3.469796040816152*^9, 3.4697960975709667`*^9}, {
   3.4697961289659433`*^9, 3.4697962417324753`*^9}, {3.469796394812394*^9, 
   3.4697964459414062`*^9}, {3.469796669019246*^9, 3.469796669673531*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]N", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"NDSolve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"k", 
             SuperscriptBox[
              RowBox[{"(", " ", 
               RowBox[{"hIn", "-", 
                RowBox[{"B", " ", "t"}]}], ")"}], "2"], " ", 
             RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hOut", "2"], "m", "  ", 
             RowBox[{
              RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
           "0"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{
           RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
           "\[Theta]Initial"}]}], "}"}], "\[IndentingNewLine]", "/.", 
        "pVals"}], ",", "\[Theta]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}, {3.469792394632051*^9, 
   3.469792431184136*^9}, 3.469792734935874*^9, {3.469792971685051*^9, 
   3.469793046089113*^9}, {3.469793130677544*^9, 3.469793135285651*^9}, 
   3.469793338946413*^9, 3.46979342479906*^9, 3.469793505212208*^9, 
   3.469793548118333*^9, {3.469794800118528*^9, 3.469794807726589*^9}, {
   3.469794917950418*^9, 3.469794941062234*^9}, 3.469794991848013*^9, 
   3.469795044349578*^9, {3.469795183154984*^9, 3.4697951841228313`*^9}, {
   3.469795268273343*^9, 3.4697952687515793`*^9}, {3.469795324490458*^9, 
   3.469795324802168*^9}, {3.46979540098304*^9, 3.469795401406431*^9}, {
   3.469795454755315*^9, 3.469795455065174*^9}, 3.469795499669457*^9, {
   3.469796100972374*^9, 3.469796102084485*^9}, 3.469796492402645*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"k", " ", 
            SuperscriptBox["hIn", "2"], " ", 
            RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hOut", "2"], "m", "  ", 
            RowBox[{
             RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
          "0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",",
          
         RowBox[{
          RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
          "\[Theta]Initial"}]}], "}"}], ",", 
       RowBox[{"\[Theta]", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{3.469796554107567*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Theta]", "[", "t", "]"}], "/.", "pVals"}], ",", 
     RowBox[{"\[Theta]N", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46979516371416*^9, 3.469795187297618*^9}, {
  3.469795486098325*^9, 3.46979553974032*^9}, {3.469796104493462*^9, 
  3.46979610655263*^9}, {3.469796520001586*^9, 3.469796539545178*^9}, {
  3.469796580705709*^9, 3.469796584356557*^9}, {3.4697967088608303`*^9, 
  3.469796714451877*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV12k8Vd3bB3DTOWcfU8hw9jFHlKRBgybrKvyLJCkpuckhlNJ0C3GXIpJC
IlMZiiYRpVByFso8ZAhFZS4cIRpEedbzan++b/bn2mtd6/qtrck7anNAREhI
yEZYSOj/nzfP8JjLXMONJ/RNd01rsuFVs4alncZB9HOjp+sU8Wx5cZCGhh+6
FisSO0EsHf0sR7z9PGJISQwMEt/EV9QZGmHITifErpNYf9Q1YtY9EvF+eQ9W
E3+QTv470xaNGpd/SHpKrH2Hver3dCxSUeN73SA+vMH7yE/1BHQ5SZ13lvhJ
S1f6pMkNtGq+6ClH4t+elp3j7ilous7rwRriVOHOsJ9maejyRo9ZGWLTuqvz
f7TdQs6vvv/bp8GGL/GbSyYPpqMSQzWJPOLLrn8cJqYz0HPGYMlZ4uZpj5gx
9fsoISPkqgTxqQq1paO5D9C5fZ4PatTZwL3WUjNi8hCJmSr2hRLz9EB02P0R
MpMaLJxUY4PI9OmGyYAcpHpDd3cGcUuXreqkWS56Ubh3rg2x70OJwm9tj1Hy
ldqxFFU2WEQPML+lPkHv8hfIbiRW8S3ZNX4wD73a88jmowobsInP2Oj0U+R4
ym+NFDGro0d3RL0Q5da+iVvPZUM7fukt+FKIghdZlhXTbHhwJ75sOPc5aj8e
ILOB2OqEldOQSRFK3mgpY8Bhw3X28+uf3floVufv3W4FNuT5WJw4ycGoqf54
rynxjaHV9EQARo4/LDamy7PB642c+zezEiTmctXVbi4b5G5Uioy3lSJDnrll
pAwbpqWf3T+2vgy9CuffbJ7Dhr5zt63HUstQ58hxOXniZ+5nkkcPvkIzLBG3
MCk22BuuWPt1+jWqvLmk0EycDWnVKceH1avQ3m15+gxRNkzGP9X7dLkKsb+s
SfghzIb/udf0Nk1VIZn3C870CrFBIPrT9nlzNZr5LP740V8KjDZYrQ0LrUW8
mJAK2d8UvHk0I6I72oB+M0zfzYxSIIfYjlIGb1B+9YX+jK8UrNOJWRvq+gZt
CMs5YjFCQcTk/YnTjW/Q0eCX3y4MUbDi6tsDvMxG5Lu8prW8j4Kz1foWy5ya
0ZdnspuOtVNwLzdfJzO2GS1ctFi/sZWCpvhNovNrm1FSyvnri99SoO2+p4iz
pgWx9kqOtDdSUC0abCA09y2KsFd7MFVNgeKGDrmG8lY0EiOS6VJEQfajsI7D
Bu+RqvqtBZ1JFAzJDV22cH6P0i7mdzclUKB7ysJ4Qcx7dKgVCl7HUZC6XiKt
d+o9cvKZLk65RkF01WU3+9cdyCjKfP38cApO9UaOb3b4gFYly2465UdBikRN
kKxZF8rlP/i1fCcFxhv8HQIdu1CbaLlktjUFnV6LVo76dKFvBj3m860o4DSF
D9Q+6EKDt/OBMqfgaryl+UWZbiTUuUw/1ZiCoPn10rMd3cibt8qOs5ACd9SY
IDjRi+bveC26eJoFQrd+PO8I70WhLWz1Db9YEC+m0lmd3otuXR++bv6dBZVV
bmr3W3tRJNcm2W6UBQt2zdw6sLYPbfy0h7OllwVfPHQffhTuR2V/wjT8q1lw
KPq/4jdRA2jBPcN2/ess8Opf2JuXPYgKGu+6dsxjQZfjO6qkahAVmZ5c90SN
BTvbLxrU9Q0iqV1a4yFcFhjVfPbr5w4huTWLZzTlWCCamyGjGDqEPkxOZugI
k/oCNI19nIZRy2LtiUMfmVAyl05YIzOCTBZ8GeuLZYK4ZrDuJ6MxxF3bXFL7
iwGV668uOWM2hhzHtgtPTzAgZE/yalWbMQTt4a3zRxkgElWweZ/nGHKJMzE7
3s+A338F7m03x1D4bNeWT40MGO60vdcgMo5COcIxnAcMqI3XXYhrx1GidVc2
Yw8DImRq9NL2TyDThBW7ft4XA17HLr5o7Q/UWGAUvZQhCsdfB/OO6v5GQZyZ
LrHlwpB7THInx/wPEmm6ay6U8Rel+XsOLbUTgiPKwjlh8BudT5nZMSkQhjsv
g5Qser4joeYuKDotCnV19f3pruNI51833116DIhb/CLe9uEX1Pc9brfESyZ0
bl2w89HUB2TRf+i/6OMUjG8/3bzFugRZ9UUtUlMTB3qzUPHHokr+UBkvsDJL
Aqxr/36Bzk98A9lWVRMnKUj/IhZ/fucQXxx9d+6ckAZbZhae0zPO3zxi/3Oe
rQx0ufnOJNb+4LeXugrb68vCHKuktp1O0/ynF185anyXhR3lw1ISjrN8N4Z3
V329HOyNO1r4PEsYu5zwfyqZOBfWHc2evuIgipe4L6q3dJaHeirgR3yzGP54
UP1olqs8zDQLR4a+E8OXD8+VkfaQh8uHDY6d+CSGB49P72jwkofeO6bUhmEx
fDug5u2OAHkIbmGeyBBhYKVozw+74+ShY7OaSelSBp4tyhTsr5OHHxtyCrQv
MXCDnL6E9xoFUO7Pkt+9jImNjxwZTFqvAD1LrKR+r2Ti7IrsilKkAJLT+64l
rmXiiIBlwTL/UwBjvW7TRhMmthxY9SfTRgHMr8ctVNjNxNWFG0d7PBXAYF/G
vh9+TPx6v12zdbICLB3UiqD5TLziRXyuT5oC9M69/35bGROnK7yPTE5XAKGJ
zOQzFUwcXO1gKXigAP2WVy+9bWDiTSt4r0PzFeBrRvmnPV1MjFlH8ovfKMA2
McnxPCEWfpF9PklfVBEK11+0LTZmYaalLTeOqQgr5uxvfLOJhXcM6iYIiyvC
mGjAnE//Y+HPWnXXW2UUIak/vOGrFQvPTVCKDlRThKtdoRYdjizsGfTwYssa
RdDZ6HTp838srLyn1TvgmCJIZH7eVlnAwm7f700OnFSE05URj3cUsXButP/J
HT6KsKjApqyVz8Kb6zSO65xRBIdHqQPN5Sx8cpPn4TfhimCfFjEvsYWFa/SF
XLTvEp/l9NmOsrC/sJ517QdFiPF9ZR+iSeEBU4l2nW5FmPoZpXVKm8LWFwVO
5/oU4ZfUpmxnXQprz3l0dNWwIqSamrH0F1O4VmVFZOovRVCKSy28YkRhNSPj
+n/nKkG8V3pOsBWFS71sLFXNleCADTNugw+F9R8btvhYKoGih9PDdD8KX/8u
79C0XQlMfqb/ywqgsGdAm2fobiVwH9miggMpLH/JIXzcRQnmBLsV/QmjsFuG
W/XrM0pg184cuJ9EYfHO01u88pQAFSxYXfaCwqt87ktF5itBX+F/U2dfUthZ
rr3p0XMl6G8InzDiU7hgy8p/xrESFGiWX0kpJe97Onr83zolGFX33YmqKFwS
4Zp0ekAJmNTH4cq3FBYsvLY/aVAJLh7ykjBvozDndcn8IoES8B6XO75up7DX
tFrOn29K4PttIOVxB4VVPN69CpxVgrqX2Recuinsu9HqawiHAwFKFx+JCCic
3hnw5K4yB3S7E8fNRijc4JPpW6nGgSJh2vXCVwrrZFOi4vM5IBUU8+7XGIWb
uWVKV5Zx4HqVrfDj7xT++3S8M2sFB2RPXy5p/UFhvR0at+pXc8BHoyDn508K
B4b+py9jzAE/Q2Nlg98UNphcvfGaBQfMnW1VjvylsH2kGzNvGwfSEs9uPzlL
4Qt6sTUt1hyIx9tyvIXYuHP/N1tFOw7ccjP67SXCxpfqHh5KcOFAdC+dachk
4/47mjEpARyQkY10ZkixsSC4e0o0kAO2tsp6n4i/8dKcPII4IL/X73ieNBsL
qWsuWnaJA/ck5AJ2yLAxN06jtDSOA3tP5gfYzmVjTe8uXd0kDpx3rFstIc/G
C3amXglP5sDWifhjRcQr52js3ZXBAWHvJntZRTa2DlUf639MvgdfkL7AYWO7
A59sLZ5xYJ7h7yeKNBs7mqS8yC7kQLPy+tbbxJ6zaqE+mAM7ksuicrhsfOLD
R0FHGQfWfm5fsFSZjX1fJNtABQdWie3bkEkc4qOmxq7nwATDquOaChtfsf0Y
dKSRA1+VYl2FVdk4xjB5sLGFA6f3fD94iDhtVPVpYgcHCrOefTFQY+N7dR+4
sx85gLwmnS8RZ2feDHTp4QDjqZhdN3GRu6ql/iAHzik75Z1TZ+Mysw+5UQIO
sN0uq5D7MK7Wuqn0fZQD/pdthGQ02PiN8D//7Z3ggJh+hpM1cdsnld6XPzjA
z/Vde5n448vOLfN+c+CZfWlUGXFf0o3skD8c6Db05f0gHvZzkB8WomEx9+oj
bU2yP3Yqp7eL0eD/XMzXinhqZeenJywabl6teXGSWEj+hhlHggZXwcfTMcTM
b/syA6RpiPps9DSHWOqNsmy3LA09R1sOVRLLZ3ecMlOgQXpTVlIHMfdyUud9
Dg1VQ/zNQ8Sah/ZtklahobicfXSSeMEW5Xsn1GmIFwmT/U28RKdDqm0eDTOJ
65eQ/yG8Sizp5DodGq44aFf+JF7fY/8uZSENn3uhc5TYBHOR2GIa7ty85tlL
bJH8Pt1jKQ3O5WqnmoitAxLF6wxpuH+of7qI2M7e/tiy1TRIug/P3CJ2NOK2
xq6lQdZjpV8w8QHF9+t+b6Bh3VDlMWfiw5MJaY4baRBZ+7CX/P/gE017WWWm
NLSfHGiUIvbLoY/obqFhfvDZdR/I+gZGvGsK30qDiW6gxj3ikMMJRmNWNAQP
jgd6EccsoMUKbWlwkNyZN0L218FR527vHhpKxpa7ZxJrxxhaSDuQ9XX30DtA
nDe7LcqFR0NWtlBPLemXgJX7DCMO0FBm7996mtjU06O1wIOGRmv/Dm3iltbz
KtJHaeAnblQ6QvrxhmQU3+gEDbqF2lYSxK6bbvJcvGmIfVYem0H6eTIr/16B
Pw0RmaF29aTf514QrHC5SMP+Kz13xsh5ef98qu1KOA0PeDcPHCW+Ncb0L4ig
AbXdXTlEzttyB80SqVhS75NZdosSG9sY7t5WkEZDp6VeiK8C2f+DLmM96TRs
66ptbCPntyf52DWpezRs3uizxJD4hHj4O142DdxVWzU/yrFxdDf/gNQLGo4M
f+kWI/PBXqmOMiqmYSSpGJvOYeN5295n8kpo+JXt/ziQzJPHBZPj+RU09Pno
Nggk2bgpcuEZXgvpJ5fKsVg2Gye+XqV5pY2G6Ht2h55RbMybNnmV/54GDZO3
P5tYpP/dHMWlumlYnaq3XYjMM1nja9fzR0h//GsxsYjMu/aTqWt6xmiYvbpL
ZrEwG6fez+qUnKRhk6X/Jj0yH5cqVM7j/abBx6VkgEPmqbVgJluSxYX3nHLD
iikKRyW6VThrcIF1y5XpQea3z6nzJwO0uKAi0tO8dJTCjjbJ6nE6XJCWsur6
Tua/vnirT60+F+R5Oc/+HaZwlZ/ZgtVruJDFG3c0G6CwyF7tMEkbLvR2vqta
TvJlcAWs1LXlwuLIgpv8dxR+I+PQvXEPFwxc8ZMtJI9SKq+t8XHkwvzGxXe3
k/xabyQ61H2IC1PPG3KXNlDYW6nHIj+IC3IRFy8hkn8OE39+NIZwQdvmwY0o
TGHTBvq2IIwLXf38yQ/FFJYL3TGtGcUF+8ZanyMkX7N/4MzLN7iw4GThG6c8
Cn95myLJe8oFL2c58egMki8x/9RLfuZC/nhZgsEFkodPxJU9h7hwsLFb+P15
Cn9qzHevGuHCPW6i7DmS765z5IRDJrlg1hi8sNSf5OmlcsNZYWU4b8zdLHOC
wucDlySMqyjDiv0hiZ3/UPj+YWHXVhtliFPJbTFaTuHD4dk5K3Yrwz2HA1L2
S0jePdj3J3qvMkiHnJs5pU/hx5+fXt++Xxn+Ofx39rYOhYt4h6oqjyjD2m8R
D6q5ZP32NBu8uKgMSzQzxbaKUPiXacZUSrEy5Kw7d1+5noUDXqQEvSpRhp+Z
WitGq1lYaHmi1OArZTA9XyPHr2Bhlnqk5vIaZXB9qVW/s4SFFad8zV+1KQO+
22WxI4+FDbMsE76MKcPlqoK6Gwks7KUwabRMSwXiV7Sl+DmzcG//Jt/SUBVQ
cVwYdHCA3DdT6m/phasA6/aZY3+7mTh1j31ddIQKrB46sjryAxM71hyf5xKr
Ao8rbGzTW5j4fU5qrehtFcivH/x8o5SJm/z/apgVqwDT2EWj8iYTl8o+r6qY
VIGDB5zKJXcw8a0Ny5TrnFXh7ML0q4GZDFxqJR407aoKI9cTPnrdYeAep96h
hR6q8NFbjb83jYG1zsc+D/FShTo5aeP5cQycXj61F/xVYd9bXYtr5xk4Y3tp
/JMYVZD3nmdTu4eB7znvVEysUAXZV2sn88n9P+uCt6z7YjUYNHr4NsNSDIfa
umwV/U7sxphpLhXBKzvT7ofWqUP6P/M+r+8TwvELk7LqtmrAcrrStHziD/8s
vhK/tVADrHV+RWj4TfG3KdtmVGtrAmu+UPfb6kn+Rq+KfbJhmtC+pXf78Oox
fooKT7v2uybY7Ym97bFogK9ddve61b55kKNwCx151s6PWlyq11Q8D76YdYxV
jOXx3SbEGqv0tIAxdcCnqq8B8XK/aYRFakHlqdcvbSu6UWU1FVQ0o0Xu5zMa
ySsF6LBJd1QV8ZmHhax3qwRIpqgwuZX45y/zkblGArQn69DzMeIln/rywtYK
0OfI2nHtP1rw6rjIKm8kQEzbqP1XiJPXNM5uNRcgk09Kxo5/tcDjtnPuLwcB
GrAb2+pJ/EXd+4ShowBdelO515d4yM9+uZeTADWV+HlHEzddTczudRYgXnrH
w3LisJ6v8fVuAhR4MEV5yawWuEZ3rkg/JkDaPT4L1xP/W8rq/XhcgCrtrVeb
E5/8KxpFnyT1WwrvdCF+d+DoQIS3AKUYuFyKI84Mkrngd1qANt1dF59OHJhe
ujDPn9SnLn8nl/i2h1nd1wABMpB9XVJDrHmnSMb1LKkv7GZDO/EORm5OcqAA
nRI59aGf2L7Ze/u7cwLE9bca/kasISoxMjdIgIondKZmia+GHguzChag/wNV
MpD6
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4VV8XB3BDuNd4j3mKe88VhUgqKTqrUBlTIUlIIg00mDI2IGMkIYkI
yVTKlPw4iDKUOTKUMktmlYh3v3/d5/Oc5+xn37PXd63NsHc9coaNhYVlOysL
y/9/H/nbc6o5hO+ZV9Y1W2ZQ4W073egY3Zlw59M+vYS8Vldxi06/RugYcsfN
I/PHFL/g7r5JGD+m/xhHfkRGynLQQ4lvnSsOfcjK0w531pyiCGu7APZG5H7+
5NWVrhiiMEGqvghZLpO64+/yfWIhn16chHxB2/3ib9kHxBHtmMYA5FcdA+kL
OklEA2cuty3y3/NGfbNOKYRo9zO3XciPWftCf+ulEgnadB5BZN0Pdzf86koj
OJIqm4fpVBhLOFC14JxOiOuLvS1CjnD4Zz2/nEH4ZViO30BuXz4bOyP7jAgx
1mvgR/Z4J7NluiCbsOw0C2mWpYLkvY7Gnzq5hIZyqU8Esr0isP9wek60q5ty
LctQgW3Zu3nB9wWR+lUgLRe5Y8B8/YJeAcH+EPe0QvbK5Xk91/WSeF2q2Zm9
ngoGMSOcc49fEQFaZXbGyNJeVWazzoXEudRQpUlpKpA6njPTy0VEzAs8UAaZ
q/e7wk/Z1wRn2xEHC0kqdJP/uU+OvSYKHl/n65WgQnZmQs2PgjIi6gmNxRrZ
5IqJ7YROObGG2dQdEadCHLUsbtSpkqgXFlkWEqVCoafBlaviJJGb+0LQR4QK
SRMaEvO+JHEiv9nvizAVXFoEneb0qgjdoy+OJgpRQTDpPdtsVzXRa1fMGKFR
YZm/+NklrRpCyl9uSRV56MYT05nHNcT4qqGKhwAVip38k6ed3xLtiYPFv/mo
YKW+bdfUci1RyKFyppmbCqkNKZd/yNYT02Ycx9rYqbCQUKT4NaKekHE+d/gj
GxX2OzUOti3VEwGZrTJ1rFSYZP9tXtbeQNTs19V8tkaBndomu0JvNxHB3KIP
tZcp0PJ8hU1huplwL/oX9HiWAoIE1YZPpYXY6urjaTVDgd3ysbtuO7QQMnui
LGjTFLiz8Gzeu7WFsHDZMOQ6SYFtdzvP2Oe0Enh/z/nVEQoENCgbqNm2E9vi
P6Vb9VIgq6BEPud+OzFnEbWz4zMF2hL2sW9oQs/Z8jr0uykg52RZLq7ZQbTs
aFPe1EmBBvZAFRahTmKZ/BVe+pECotq9gs11n4iIfK3rUlUUyH8e2ntBpYe4
r0TIrKZRYEJwIsLgVA+hdHZsm0wqBRQ8DPZsjO0hnjcf5NidQoHHWjypg0s9
hOrEm+5zDykQUx/haFXbS3wntC8/uUcBj8Go2QPW/QR/xc/ka7cokMLTeAvT
GyAiVH2Ta+wosEfbx/q6zQAxlqH/0M+GAn0uStunPQeIL/mb/bdZU0C8LXyk
KXuAKOt/v5xwjAJ3E4z0Q2jfiKYS+j8tEwrc2vCRf633G3HkwY5Dc7so4ES0
Ppi8MkiYJRiPSQlSgCXtV1lv+CBRYreWf1OAAgnrpPsa0geJGDvIGOGlwPt6
R5lnnwaJxfKnGzK5KLDRbCXtzK4h4qpXWCL7Py4YO6uQ+4V1mBglt3hpjnLB
uRi/ipboEUL963PJxNdc4DK8abAwf5w4GqlywdOCCwZsPlOq6seJBOfBMz+P
cMHR7hCVD0PjBC1B87LdIS7Y2Th6bVhygsgWMqzRPsgF7AUZNNHbE4RCoO/N
Tk0uSPBl7PG0/UGck5fo9pbmgiohiQeatJ9EEUuAUtZXTuBmBCp83TlDHDIv
Gxk5yQl3aI2KqXbzhInaKV7GYQ6w7zWrZG/6RZxZmPh5l2cdXK4NtHdV+Ev4
i/f1leWzQcEl3qPi+v+IYxo7HhQeZYVUn/MTW46xgO7jffo20WvEzZSVwwuT
rNC3+NJ7MnqFYGkfgHJvdqBzzRfvC18i5N0cvcwUOSBzq+WzULVfxNBivAXP
f5xQcH9vmOu6ecJg+JxfzGUK2LefumovOE2YDEUrychwA76nfDtFdYyYqLG/
/j6PBw7HqlcslX0jVLBP63Vs+cDkqhs368VOgptYPNU3zw8NwW+145JJ4sBP
q9+4OQ32BxV/VUwtqeyudmC1UsYgpLlBR76/vbIo5K0NfRGDZm3jjGeXBiod
OdwHPn4UhJXKqak4/9HK01d8ingThSBa+J6Cv/BUpaqT0kejU8LQ/Js0SNGd
q2wWVOZx1xSB6mChKuHaxco3+TcfKrOLgoRIitdF6lKlD6uiaVO/KIR8G5WW
vrdSyd3nfdClUAwSB0jJAxws5HAmIzbFVxwKf+SIkKmsZOxGiXWvzSVgSydr
RbgNOxmd6PjuFF0S3vz0Panydx1pFXvyI++oJBgVFwuMhnCSf3QzllIqpCAP
r06Q20ohB4f3eVXflgau76Zs6UVUMk1bTerDqfWQaXTvWogRD5kX5I45bZYB
f+Etze9Kecnb5qcN2RdlgC3Pw/MhDz+5vS/12e0PsvAd/9y1yV6ATNj0MO+D
IR3Of3Hi/LKPRgaQkQmGr+lQuU7fOekjjZzoJ2OXyuhQmlUjFd9CIy2W56Of
ltPB4qirR3QbjVTeYRXKTtJBnY/KCPhEI7tz5L3f1NGhSIZjm9EXGrk1vvKE
Ugcd8tlOx6X/pJEjF2dleKbpsKG5+vxBHow8HC4n9XqGDl3aekGifBhZnnVM
zGmODvGhvMqD/Bh5b/A/gZpFOrDHra73EsRIOB7G4rNCh5lsT59oCYxM1GV+
n6Ay4Je4hbW3AkYaS5lnNMgxYPP3+izlfRiZMKRCnpBnQJf4+HK+DkYO5VF6
JxUYIC5tt6Cqh5G+UE4TUGLAoQDfts0HMTL3DNP3qBoD5CO9VCVMMJL7xeyR
Pm0GxO13aMo7jpHvdO+wTFkwoF+gJazeFSMF+c9KBVgyQM3Fc4PsZYy06dq7
g2bFAGf1qyZXr2DkL+fF81tPMiBgMOCgmDtGykdZd3mcZgBvStR7Y2+MDPys
mL/myoDluL3mboEYudfl3QkslAHF8bk30uIx8m/3+P63YQyY9BNU/5aAkYU6
vFs9Ixiwj7pTVCYRrSdxmNIfxQBV89WLMUkYyfu2pzArjgEcxmL6Z1Ixslti
ig/S0X79pHpeZmNkTCBtaS6DAVxBh3d05GCk4fTWoYynDDhZoVQ0n4uRFW89
y3hyGHD4LJvY5ucYme7K6tRVwICtM9mmoa8w8lKtMOlSidZPU3838gYjFbdo
5DCqGMCS9653vBwjBxOPx3VUM6AisYn9x38YaXEp+cKuOnQeicfDRisxUktq
owTnBwacaGq2qK/BSMrl3Vce9TCgfthdTLURI1Ok7eWaFtH3Psd127cbI3ep
K6nY/2ZA+ajqPvXPGNmhv6Dx5w/aP+eF7WPIFM9gQ7kVdP56LFVGvWh/rdlX
fNlw0CiotGD5guoleJ5UFsBhUa/2A20QI3uSyhuqaThwP7iRm43s9iqow1IQ
h0sBHcX7hjAya0BsLFAEh1+3ZAwvDmMktltLoF8Kh4xJR+vcUYz8Ph14MnIj
DqsXx6+0/kD1w2nixFTEIbDbNs94EiNF14tdfq2Eg4jnNOd7ZAODZ4HDKjhs
Or1buOQnRr5M/5CjvR0HdGG54T+NkUZv4orad+DgVSia8gN5pNW20nknDj3d
Vp0WMxgpuTbbdn83Dr5bLUMVZjHy1nHRvz/34iB+3mypYA4jZS59ZQ/UwWFG
4/07gXmMLA3O4pPUw6F2pDfrPPLkq12M/Qdx+BlZm7J+ASPN+G0PJpvgcCr8
k8G5RYycktt4ZJspDv7FfgmlyCG7Z080HMbBljt8bt0vlMezt1x/meFgIF3+
Ph5ZruZpnMkJHDrw4tGM3xj5UflPep81Ds0sCUaDyF5xB1+ds8HBhmHTKPMH
Ixudx5uDT+FQk5stFI3s1q75Rfg0DoN/y3prkWW0wybTHHBoPFJTtoR8haZE
rXTC4cfNlrITSxgp7e0jZuyMQ1WBbU8ocu1g44beczhoJSzzFSOLl1zY9/si
Dn6DLvmUvxhZTf/PNMgVBzXpVglV5AthfLZCl3GgFpnHHUWuPJnvo+qGQ7dj
X2Uc8tl3q6H/uePA2+t8vghZUO1QgqEnDj6OWza0IZcnpmR+9sIhbNB9chLZ
cd1MoZM3DqLEdZJjGSNpLlCz6IPDe6/7j6WRX3dFt97yQ///yXK4GrL93m9f
sQAc2Ib/3NBF5s1Rm0q5jsM1z/Yb5sjFwjdXNt/EYfZpa5gDsp1/G3f5LRzE
ujSTLiNzj+ESBkE4uFw7UuSL/OrwVYXuYBwyxew7g5Ct39RsdwzB4bfJ8+UI
ZM4NwroLoTh4tl5XiEF+ccfhyM1wHNwc11veR7b6U2hHi8ShaaIxIg55nT2H
a/IdHA4cbn/7/+f5jeZ+ytE4TKZ5r/3/fcvtmeFld3E4uUbRuoPMmvLrwcF7
OKg+qr12GzmbciDrUywOOg2/S/yRza7EFzvE4SA5ObJ4FXm1d/TtXDwO26/3
bHVCztLb2X79AQ5O0pIulshHnod843+Iw1bXn5kHkJfFP08nJeGwHpL6tiGn
39y0qpiMA98lF346ssnkNd7XKTgkL+XspiL/MW+QPJCK8jGbdHoGnU9apeSm
zjQc3gSHBnUiL8a80ZvNQOfT6FH4ADl5hccs4CkO3+0opBfyQUdre75nODy1
Kak2R07S/Oe/KRc9vxudTUXe/8Q4siQPrRdpdGcA1ds0b/JDvec4lAToOxYh
7xvYU3rqJQ7KIkozlsiT+lF1069w2HI+7bECctyrrx1+RTgw1l/ft4Dqezz4
+uyDUpQ/w/vHbiNHb65WbKtA/alU61Usyk/WzhPUmyTK/4VYRWPkSp2FUbVq
lBdlQ1V25Knj8hl3a1Fe/tPod0J5NAwOkz3chPoZT22BEMqv/V3mKstHHEbf
NnqXorx7J5X3vWjG4arR33or5KyXUw9o7TjofdrxOx71B86vR4RbPuNg9RBz
W0D9Zf3Ej7mAXtQ/5DXNg5C3LQa2qvaj+pw8WSSEfJqn5E7UAA6dn/imN6L+
RGpIUQ+N4vBWQFJ1+xRG+kQP/vuwgN6/tFOqYxzNm4e+fX6/cBDYk3ZDCzk7
U+TN5j+oH+76Ypk2huZT+QGvyGUcNA8bWDii/rpjPGfOiI0JJxQvuTWjfjyz
1220UYAJbYXF3hu+on5vzFfngzHhSe6tIAfU32UtM9OVhJhw5prG/ON+VB8u
3afCRZkQYfJ9HuvDyJxErT6D9UzQ1NK60oHmieP8utZ6RSb46RU+6WlF8zpb
96O1MhO4wrL01lrQvDoV2Di9mQnyf1XvM5D3N7PXiagxYWp19y7bj2je5rC9
OaXBhOJ21dCKBowctmfJWNJhwvLivTReNM/6JCAtQo8JTfnKTTzVaF61BKTI
HmDCTtfABEoVRr7ds/ZAz4AJChtrRZcrUH1Lrt65a8oE3pejcTVlGOnQtuy1
6SQTKql+2PcClO/Q3R7lNkwoUHUXe/MC5Qt8rh6yY4LTsUdFd9F81s3/e9H9
NBNsOIdKNPJQfw5bsq9yRlbaWO2Yhebx3t9Gxz2YwJrmcdI0GdVHwRw9NIoJ
fJkMwjgEI99Tfaa07zJBo8IjtTQYIzfbs5fPxTDhuUigOCMI5UtQ+Jh1HBOu
WeXtHb+BkVFu2yNVHzHh0efkcxY+qD9qeC11ZjPBOrL+/JOLGClS8a8Vr2MC
c/nHJJspqj/R4JSud0wITzdwFUD3qQEX/osR9UwQH4qcEjdC9y1ZWcqvJiYE
BU4O4Oj+te8G7KlvZ0Lr86M3BAEjXXRvZbt+Y0KII0XEThXtt4Fyq3yFCbGO
zIbn6P54QedbdD2yadXdlUfItPLXyZ+QUzgMVSKQLfPOlc0gX9+fHHUWeTSq
aVbuHxP2hr3TZyBzmkfbRSKrM+SSYrgxUuer2B6bVSbcbfhX6kZF8/jYjOF5
5Jtq7zrskcNa3h/3Qo6y6Z02RW6ruuYeg3yHc4i5Gdk+vTe3Dlnd1ePWMAUj
rzunSKmuMSEyJ5lugSz33XOTFnL8tJCaLvJ7K1MNfWTaWDtsRaYZsR49jfxt
Vt2GHzlF5XRYPDLdwC26jgt9n6e7E9KRSwSJh4XII7LCmQXIY8FmGWnIKlht
VSPyi4u2Jf7IbaGPmruRhb6YVV5A9mDz6B9GzlqMrbNClvQx+TGHbP5K9sNB
5Ip5+aU15DWRxbYdyP8DBQrorw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-4.495691490121953, 3.1415926535897767`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.469795164300488*^9, 3.469795169721143*^9}, {
   3.4697952063784113`*^9, 3.469795221486446*^9}, 3.4697953386384993`*^9, 
   3.469795409771649*^9, {3.469795461673874*^9, 3.469795547361058*^9}, 
   3.4697959207995663`*^9, 3.469796070896638*^9, {3.469796122145447*^9, 
   3.4697961752461443`*^9}, {3.469796212196525*^9, 3.469796245049602*^9}, {
   3.469796401429134*^9, 3.469796449471758*^9}, 3.469796545639184*^9, 
   3.4697965850508423`*^9, 3.4697966303243103`*^9, 3.469796674223893*^9, 
   3.469796729770768*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", "pVals"}], ",", 
     RowBox[{
      RowBox[{"\[Theta]N", "'"}], "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469794826644672*^9, 3.469794854932931*^9}, {
   3.469795024087844*^9, 3.469795092014573*^9}, 3.4697951960266848`*^9, {
   3.469796113066903*^9, 3.469796114355788*^9}, {3.469796599637516*^9, 
   3.469796612718047*^9}, {3.469796719259061*^9, 3.469796723148695*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VN0bAHDLYMZOilLM3BFZ2171lnQeiRbRSlljVFKREolKstaPLCkJ
SVFKkaSy5EiyZImSJEqypBRZZu4Q/c7713y+n5l773PPs5wzHN7hbXvFRERE
boqKiPz3mXaaJ7l4z/9WF3vHPHcKDS+rfMvetJPtiVJrYt1HStzx36qyUDb7
BIoXRr9/WeKL08pjNCXY59DGv2robkkoPmTq5yXQTEZmIUt1I0su4reT+xOH
Ne+gFV37A9glN7HUx26dn5pFKG+07eKVogKc8Sr9yA/NWhTzoUkztOAFzs07
9/GQUTs64ZZ55sjBFuyBmpMHj35F3xattZSf+Ql79+p+fZQ7gO5uUpfbcOMr
luaE6Xz+dxjFz9icFOjxDV9QrNPLcB1FD9xNN1xKHcS8jzuweD0fsV+9aL/q
NYyPvAzjHdaZQEkfrqjs3jGC831kt6ttmEJRJQ5VYoOjOCPo4PdFO0VAZ/BS
cZX3OF5UzqIjnUVAMUErjvYdx+WMbInP7iLASHGR0jkxjrtietgxPiLQYJb4
/kToONa47rxz4JwIdIfs/sZPGsdXKzdXZpSKQM4yUTWb8nGcIPfPNWVKFIzi
OhYelOfjs+l/to4NisLz4//KLLvOx1sWPT2iPyoK/kPX/I9l8rHGc994nlAU
WjPtjudl83Fx9/emJgkxqE82WKaez8cj8z9svq8hBpabC5Jqn/Mx716h9b4t
YmDz+KtzSDcfmxV5b2grEIOYz215uzgCLL9Rz1OhWAzYzU0JC+YLcEd7b5Rl
uRgsnJ8rGFsgwAF/nGoe1YvB+ujGtaGLBPgBsloX3ysGLsySDj8kwOwqHYuN
quLQeTQz/KGTAIu87YLSQHFgtGZ+D08U4LCBsozAEHHYs/OMvtEVAWaJpImt
iBKHeSccTN6kCLCyoX1l4SVxqJD3eyl3U4DnRzavy3sgDqoOdke25QvwRpMK
mxt94nDkwturSg0CfPHmTaeobQyQOuY+xhOlsVpxyDNLewZI+1Z2hzJonNq0
W0PClQFV23ujr0vR+NaUeleIFwM69ixWbpCj8dOdie5BUQww+XG7eWQ2jTtk
wg94lzFAjLXsns9iGmsf2xewQ08CDqvPWrHEmcaGKz9vT18kAUujEh3SdtP4
H5FdC78vk4DLo4wnDB6N10Rv6As2lwBWNtKs2Udjl0yDHTlOEnDEre0Gx4fG
l1tGForFSoB0uqu25lkap109KGN9SQKyx7PrrMNonOna05eUIgGnry67FRBB
44eD79IMsyUglF0nrDhP40ZGkYz9cwkIX56ipHeRxhLGwf15oxLwtOtdidlN
GstOCiomhBKwdTLkwtIsGis/97lmISIJa985xXNu05htzbP9KCsJrc+8tEfu
0njVXosXktqS0L2gKnzvQxofuyST7rxLElzSYz8kltO4ZzzJTuaZJMDzMP6M
dhrfMFvq2/lCEiTvDafe/Ujj3TGNsXmvJCHatK9sVSeN27Ukare3SYJ868Zj
27to3Lz9qEnqqCRMuy9M29hH47L8TWxDPSlYk1GZs/s3jU9O9a/6u0gKxO/Z
fr8/QuMVG0Ltm5dLQW2Z2XXBKI0fdRUl+FlIgTN31ZFTfBrfVdCRKHOVgg8c
14xtkzRO8hL9bpMkBTJRVtJchhDvKEqV5FyTgrv5azMXSAixssS/3NFMKbhs
aPpQV1KIL6R6OyU9lIJQlaO6GkwhDqv72Pi5QQr25oufaZIR4jWqx3/kt0jB
9SeswnxZIf7LU2aGfZQC0eAHThfkhDhwYr3ZggEpMMMgvlJBiH10Hxf4MJgw
6WJ6x0FZiI38tjatkWGC45TKYdUZQvyjfHBQRZkJcc/cb70m3reLq12kyYTb
F77sXzJTiLUyy9b8T5sJC3WaRjuIu4fsdzsbMqFv+NHQ2VlC7BwZd0XUhAnj
5gMrnqsK8Zy3+oVvzZiQMT4daa8mxG0a1c1Z65lgpJtk+ZN4x+Mp6Y12TICw
HhWpOUK8sffAqYQjTNANXD4qPleILU9x760NYELjyESuH/GamR3t/NNMYP7z
nvGVeKWF9b+O0Uw4surC6QfzhHhZp4SH3EUm1Eha3FDUEOIlfmWXcDITGNfr
dx8i1staOMq9zQQ1LJ89S1OItU2/cVrvM0HqaM6SvcTUu+tboh4xYYZNp10e
sYaXffDKErJedkkq48RzJJRzB5+T+9s2HFzGFuJZaa86rtWQ+Np8nXyJlY1D
Zba+ZkLh0jN9OcTyDSYrxVuZ4Bv8jdVFLLN3bH9hBxO2Xb1ZpcARYubUvSSP
r0wY1rkz14SYcWlv1ezvTDCL/y3DIxYx1BivGyb5YPgnhhH/qWzlnhYwIcRv
0eMbxLRT7LZF00xQSVM/Uko8NrYupJvBgjThkpfNxMPRIg8SZVjwpvHow27i
Qa2iT5bKLHg+v+3fIeJvpUfkhGosaK133SUg7tmhtypHkwXtO2WUJom7BrsP
OGuzYFTzPW+CuCMsJVnBkAU3zCutx4nb5u6oeb6UBdW33jb/IG55JCvwXcmC
jBHJoU7ipk0v52ubsaDmkmtWHXF9z6kdbetYsKTy69gj4pqTy0LP27Bg8fHE
zmTiSpWh/FW2LDjqdXx3IHH5vdtdvxxZMKmXEGhHXLrWVSGDxwJD4XcjI+Kn
HWqrt3uS9+mLOilK/OhY8yEJHxZUVvu6N5H1vpe55pXnKRYwYrdPuRJnr5qk
1cOIaccHFHFmS4FO43kW0PZtfz6T/KYy5ocvucKCJ1FOPGviK6mdBT3XWFAs
djpoitRP4j+Xuy9nsUCzydLoDnHMHimYfMiC2BXSbqOk/s7/wd73i1ggcl/r
SzxxRGJA2u5yFiRT2pP6xKcrByZeNLAga5X21DZSv4FON3T9W1iwrXtj72d1
IfYfc9i14CMLLkbf8NhP7K1VXxj9jQUbDiCTQ6Q/DpSG9aweYoF7zYPo/tmk
P3eYzvg9zoJNZ+4HuBC7hOX62IpLw4q6O2xE+sumJ05fQ0MaHp47XVBH+rVe
v6fFSUsaRA8rbF5IbOW7/HSKnjTMdgpQi1UR4vVin5rUlkuD4tl/jM1J/69h
6/vP2CIN9WLayacUST48Tmtus5OGHjXzWxVknqC85po4J2k4Xy7TLU68anWA
urynNFRcVukLJPPH2OllOfOsNIjk2nFNpEl+bqodWBclDfYxGnfcWKQ/fxyc
EXFBGgzKz7uEkflmFKi8TzxFGvr/935XGZl/C67slpkukIbOpaqxDHEhntsi
tB3tlYa+xcVU+wSNr6pb/108KA3Hr38oeCGk8Wz369k+I9IQ7jHtf4em8awR
y8mf09KwPYaR6EnmsaJi4vVvqjIwHf3RsJTMc/FNRj86N8jAJk9nVk4/jc9e
DEmcu0UGYgSmTTvJ/Bf52GLqaCcD7Wh2vUgvjf94BsW18WRA7VK8+7puGvMj
a4zfBsnAneo9qrc7aPz9Be9MzX0ZeFtj++JBE40149sOXHgkA/6KDaPTjTTe
4WJju6NEBsZ8DR6ubyD7C71Cr6tGBg6f/vShsZbGCYZKLYKvMhBe3daZVUFj
kySsozNHFrySZESDC2jss8dY+SdbFqp8EpZF5JPzweKcPw91ZOHd/g1/o/LI
+9Vfbl5tLAtUSKFVSA7ZD0W8g+y2yEL8uoL2VWS/jT4w93V4hCw4NlrM74qn
8fPlCUVWMbJwcsGW4uux5H0YzEylRFnov572zSmGxq7powFpGbKwevsN5Zoo
cn5oeUUVlsqCTt6X257BNO40PeHfMyIL1+UtlrUfpLGRUus8891yAFGIccyM
xn0xfWcv7ZUDbmHDvrbV5PwgLejvPygH/eouIitWkf2fofYwOkAOoo/qtv9a
RtaPb2/ZGi8HYzsk/zE0oHFWR6e3Z6UctDzJ/jw2k8Zzs3txrK48zM4Z1C/o
E+AWLb5W90J5WBuHLNK/CvD/MiTP/7NMHipOv7kZ2SXAE1d1dnxYIw+H9t5e
Yt0uwG0xnt8oJ3koO/g4M+e/85jvT8XHF+ThamHyhscFAiyNxt06RuVhdbeD
keQpcn40W8B8PCEPaUWxYotOCHCfuWNurKgCtBRYnrP1E+CK9c8n1igogJ6W
Qv5FLwEO3BZz8Y6eAmy/Ina6w1mAf+yd/9LfTQH8FzfkXTcV4Ppo2wVKrxXA
8UlLLi3k43U/HQSUrSIM1V4Nn7GPj6+phL4N3qUI8isHP1q68fGYSU5eh6Mi
DAaNmvo78fH185Mel3mKwLb534LabXw8oZPaxvJRBAeDT3kI8fE9XmfR8HlF
YKlv2OCjyseKbbtPlpUrQmnA+s7eynHcVrFH1MFACQztV56wUxnHhVGVLuxx
JdhtZ6kdfHMU75Pw62psVAY/xdo3+p2/sfvRoELZqzMgcGYOrJMcxgs99Bs3
uanApc+rD7VQg/i1soGM34qZ4K81uYGX1I9Lcs+mGIjPglnHyuwr5n7FQaJ6
W+o7Z0HZ6YbN92Z3YOmOwPXej1TB6HHbC6sPzbj3Ficx/aQa5MyXsdu7vBwn
LpjNKLKdDZ+dnKUYWzNR3NV91W7sOXCpVkN210ANckh0bpTtnwNvfedOqCm0
InptljC9TB0+7yqWpzW60NfeNQEVkXPB1ay7U+9xD7phuli9wW0erEsNd1Hx
H0D3w/2UPAw14Pgvua2zbv5EkbbuVuLjGqATkvLFpGgYGXdk3Ils0ATZ6IE9
81NH0BXdlPsNVmxIzp1IHzMaQ2Ojllmh1myoeZJ93sF4DG0uG0ldsZkN27sn
KkpNxpDk9o3RWdvYMD+4S9V//RjyOyk8cMqeDTZSuktK3cbQttc7Fxh6sOFA
wD3tSxfHkKyfys3os8SNe7hHx8ZQcHnMFasiNkz0z9iecnccfe8sTxQWs0Fq
qWf0SN44spscjbtdyoYMuaYRi8JxZLDM4Zx4ORtkI5XMv+Bx1JajHVhSxQYv
/pr3Ay3jaEkSdtRvYUPklsS/ZtPjqM/rt4bMEBusw52mpGz4yFrdNuuVFgfU
vfMdi7/w0ZUeo3JHbQ44KGiq1vXyUc995sdBHQ6oFOlubhvgo5NQqqigzwF5
jatLvv3mo3t7uSe3L+YALM4o7BQVIOkHv7d1mHJg2fQnriZHgKrXXhD5ZccB
5petgQInAVKW368evIsDib7n0y+7CpDLe7Nlig4cQO+jjJbsESC+5/jBJc4c
SG68HulyUIC0Y53e+7tzQCaka1b0CQEK+6CX+/cwBzJrIxatvCRAZt7Vjkrn
OGB//0Xmp1oBmmgbsKw8z4H6xDxjmwYBemQuu+R4NAeKTnoFFTWR+83eyuyM
5YBr6Dcq9L0AyVa2P8q+zCHnveqm7h4Bapv9Sw4yOSDtMYN6Oy1APi9Vyr0x
B+5HGlz0XUgjvUXLczjPOWCyNiRl1xIafb1qf7mlggOav7wsVxjTyM7n2qGV
VRyotfgT8nMljVapL5gt2cCB6dpLIRxLGjGPmBxNa+cAwyp5yRNHGqXP5WnV
j3Pg7JudjMuhNFq5VN+IJ+DAaOef/KpwGrVsGFtO0xyY15QYNhpJrj8eYaX1
hwMNzSjJLJpGPs13j54UoyCDO9MzL5FGEDFabqBAgcf3rX7NmTRqTy19VaFI
weJThzdW3qLRsYLwll3KFFgpbUEF2TTK7lL9FjaTAqk4bmT4PRopmaxS6FSn
4M7mJxGTBTTqHgpzjllAwa+6+wzDChqdlLTx4OpREBDd+vDLCxrNmqd6pEif
3N/T6GTCSxpt3HgnrNeIAskex93famj0MLMhx9SYgi/a7q57X9Mo1H7WxE8z
Cs6qNKlkfqSRhs9n8TBzClb+47RzTieNnkZky82xIN+bs/OjP9FosGAlx3I9
BTe6Pe7s/UKjHfK711+zoaDw8LNb3/popPXi9mUbRwr0lGszl/ymUaMBndnh
RMHCo1v09ozQKODy+oIDLhSkhTR+jx+lUZ3nwOsINwpEOmn17nEaHVXUZ2EP
sh4FhittJ2g0NzBI1dqTAnsck7B/kkYvv9bN/3iAAvk7kVoBf2ik9uTQGoEX
BbPOZo39b5pG2Dk3aOExCt4tX2QWISZE+6unzz3zo2ARW4wXJC5Eyos3X7E6
TsGmy8YlhxhCtI8x/Mgj8L/nL5y1VlKIZHMW/0o/Q8HOnCsHXrKEyIF+5KoY
Q0E1tc1HWVGIGDyJw9cuUHA0YY9UHXFune0pgzgKAm++awlWEiLRdH7y+osU
PBzdp/xJWYiyLf59eyaZAnOe10yvmUK0LS/qi3wKBaXDSU5Ss4RoUu3DUGoq
BaFJdh/SiG0GT8gWpVMgXWfsi1WFaDyhxOJ3FgUOelztd7OF6NofmR3BtynY
9SFedescIVq/z4knd4cC5/JfprXEqSumTuveo+CTrr5urroQWd60jnlyn4Lv
Kt9+zpkrREOy11Is8iiYz7LpDyVe07X6qdtDCqoMWo9vnCdEgxtiq4YKKBh3
aJfPJr5c8LnlVCG5PtaqXVRDiAYizvxOfkpBkgOSv0ucMNz0V6eYguTwbH+a
eJUDR/5xCQX8L1YzzDWFKM6wQu9NGQVx2SoD9cTZ/zqyzpZTYBy+cocSW4iw
+Vj/4gqSb+dN67YSt9rEVH15QUFX0+qKaOJf9tpZ8S8piLCSevmCWGIvDjWr
pmA7I3Uzn3iuzy7e7xry+6lRNy2OEP0T9BsyXlGwWVLqjzWxVcR5za31FKx/
0jDPl5gXz50WaaRg2s+s+iJxYGppx4PXpD59neg84vjbtiWuzRRwc2bnVxNn
P/yVrPiW5LP32O924vJnkQHlLRSsfnygaID4fQ17p08rBcVBNHOM+NfbImN2
GwU3Xed2CYklP29TafpAgYzju9Xk/xua9/3HSPBHCmINuPPp/+IdD2te2EmB
I0/y4jDxJhGNB58/UaBveyaqh9hd5smF2C4KNupelGj5L95ZW7xQNwXxjWbS
mDiBM2A19JWC/SJxl7OI7xic1UvvpaDc4uzdyP/iXa7O2txPwbzf8yz3Eret
edQ//Y2CSLan52riIWvrqtzvJJ/PDqjM+C9e+75Ml0EKDp7SW/eVrK/GnuBQ
+V8U3O16IJpHbHxYjVc2REHIUqm1/sSbAvPB+zeZBzHL5VcQB8V9nWoYo0D5
wbaV+STfCSknO07xSX4zbFP3Ed+9NbPEkKYg5QcvQpW4rXRdQMwkBbdT3o0c
JPUzXN1lZzpFgXqEvZ8CsdTbE8Y/pymY+VbrTC6px2UDOSObxLjwzfG90WdS
v9Zja5v/iHOBf/zrGx/iPX878+5JcOH74zN/p0j9X5yp6CXL4sIK9ecj0sTD
Zsf66xS4YONZbT6kJkRMa7mqICUuJNCVRs7EmrtuZerP4EL/JrmbVaT/bLzb
3P43iws8g+860aQ/c66u6tg4jwucuLGsLzOEqCLrXfGEBhcCz/I+6RO3P/BO
vsvmgv49qYwjpP+Z1dftpLW4sHnk5MshMi/2jTKaa/VIPA09Fx7LCZHL3bWN
TgZckFgjfPVDVojs3MLqhgy5YDTUOn8eseVr8aqZi7kwK97732PSQqSdI1bi
tpwLmYOPWkbJvOrliWQJzblwfGkVc8VfGnXMhhvRFlxIZ2KzRWQetjQFp2uu
48KQcW0Kd4pGlav/Jlts5ELw9acF02S+Zs6ZvhC/hQvrTzw+HsGn0Z43kwG6
zlw4G1RyvGOQRk7nTPxLXbhgueRq66UfZN5DkO9mVy4w2g7aW32n0drcCS8/
dy5MWBbW3e0n8/+8kPfckwsDEen7TbrJfmwm2GTvzwWNimcFN1tpxMsfYZ+L
5YJTXZNhQimNalhBv0zjyfPZJ+PvFtPIkCdeOpJA1tfC1K/sKY1oZZWdTpe5
EPnHo6ztEY1ijxnHLEzjwqI+Z7f3ZH8sXR4gfHeXC/X7fVZNpdBoZtlUM1XF
heWqelK//GnSLxHp76vJ+i77rHf8GI26vOW9omu5cNXI5+PkERrd09Rk8uu5
cKh7rEdwiEZrQmB17VsSr5rbrWIejbzXht49/IULHud0Nx20JvG+YoaW/uHC
wTtDV05q0uiQ+Ze4WuKoYL/EvcSKpUXXWom1D0xcsCHedf9A8TBx8RnREDZx
f2z9b60pLqg3MuwrNWgkaRvnGkMcUN7VJkNs/ll1tcs0yVfJmOrVuTTq2zls
dZB4xrTL6Fni80019gHER31rGg4Sv3l+wi+BGE9eCTYl5mV+vFdFHJ226H2X
Oo3OeKarL/zLha9TK+10iLW6j+uuIvbuv8JRJK5x2LJ8A/GNGfwf9BwS/ybR
7e7EvctzT70iTjdyP59E/OnVzEtexGtum1zJJH7R47XLjrhPU+VWPrH0hpdz
ELGR0svndcQ3x46kKhK/OZf2uu2/+5lWOwpn08hfzL+zl9jznfqcbuI5QTY/
Roh1Sg+/f0VcNqot/EusNlpxsYD4/9mTokM=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwd2Xk81M8bAHA3OZfddZ+Ro0RUSmifUJKjlLN8EZUjIRGKFOUWuUsoR1Gp
KMmRyVGkHAmJ6JD72M2VI/rN5/cPr/frYz8z88zM88wsOWfvwydZmJiYzuIf
xO+sS84cGididzPlxv63whZR0/BJ1tRG1p32cPbfpNJzF/TvbU24rGwQbbBT
ZbT9+TmU9Tpehl02mmbM8rbL43E48tTzP/NH5ibtcNn3vRx5yejTilsKQ6aI
1nNApuxJdB7i7PupNCVTQVsRG0raaPMM3W3OOTsh847GecXmnjujDj1+Et3n
qdZLa1Yf2SXX2oFcaR9vTvoO0mpVCy555fQiryGVweePx2gXbhuooJffEbfc
VaVvOxm0+tMNOXfnB9F10vuNd51maQ/YKvLmEodRxQ6pMnOvWZrL/vwV18xh
9MvBm/b34iyN1aSM1lkwjHSKyZY26bO0svrl5PTKYTRqbB/C1zpLa+kYyHs3
OIwMwqfagnTmaHLyOzb0bxtBi/MC/oeF52l9ircetX8cQc59loj1wwLN9cUt
o9N/RhF35o8zZ78s0NjPLUqzMI2h0qNekt+GF2iK4eOPk7jGEGtvZFAl8x9a
rXAj812xMZTfU7n17I4/tA9/w5/76oyh4S7ZwoHcP7TQsecOkyFjyKN9MrEi
aJGWMXnW03htDJ19c9XZW2mZtiXK87ba1DiS/rWPY2HrMq3Yxfbkh9lx9J5l
3YNgWKYdiUa6J5fH0QaI/x1tt0yLuv5LOopzAn2pTL2cH4ufpyuOJslNoD1P
72V/oS/T4qYlzWosJ5BgZlOvwcsV2vFza94XyidQiQ/vEVHjVdr4jmqxZa9J
9OEWOajYepXmn7Tn1Xe/STTcIJ6jf2KV1jz3SqXuwiQSF1OZ8AxdpT1bo7r5
R0yiq7V7w2vLVml/T5XVZ2VNImuh0Gce69doAZ49BovNk2j52W/yq5U1WpnM
zbFhuSl09+Lp8S02TNAkSA/fXTuFtrxetxj5HxP8ftrx4vabKfSarZD9mwsT
lAhTfy+8m0Lf43/JxvswwfYvVldzOqaQ9J3/bMaimUDyiLpz7eAUutVwsOFu
NRPEVNX/MGafRkl827KF1jOD7mAcCt47jdYf7njorswMxm9oLE7G06gkzafi
tRoz+LbvT6SZTaN2meJOLx1mYLduT5u1nEb8moo87y2Z4ZD0UJT6iWkUYy0a
GB7JDHy3DvYtXplGYTl/LeYmmeHAARHq98ppdGjLy7ObZplBYfunJFrNNJKu
PXfDeYkZLl9TqMusnUaVP8fb29lZQDskVe9A0zSa2fDlYLE0C5hYbB8I7ZpG
zo/KzE4dYoHe3NPnD9Kn0Z4KL+OeZyywf9OemHhZOuI/sNFdoJIFasJFViPk
6ehr71DUvtcs4F0X6BiiSEeBf+2bnn9gAano1GUnVTp6SjMxujHEAuUbD7xm
3UlHsm+V9h4QYYVPvlK7KszpiOnTd6i+wArHffQ8fgfR0dWxmrsXrrBCl7mZ
7JtgOlrHlMWiHcUKUblF4amhdCS02a6hLJUVghZfH1O9RkcbIj8aPXnKChZM
L5M1E+nogE6dee4wK1ypvLUtr4COkvPy7KMOs8EWL3W0oZWORCuvvNpnxwYt
3ZGlye10dLvdUZrdiQ2+qRZkr3XQ0b1Vie9XzrBBnv8Nj/ef6eilTYrLxSg2
2MzRK7TnBx4vzzUPrxo2sHjWX5I9S0eKfqcCLTeyw4y05ysxHgbavOvbkZwt
7FDQ9qqHxMtA25hs1ce12CGFqaiOg4+B9OOMh0MN2EG1aIKdzs9ADvmqlg/t
2UFhINClRIiB0jpn1FkS2GGyaMFwTYyB2LeHjjyZZYd74gGTNUoMxLvyp255
iR2W2t/dvKHMQEK1Ptl7mTigquKsposKA8maOVv18XJAc8BBFdZNDLwp99Zz
KHKArZ3MPi01BvJL5cn5z5YDNvSEs3hsY6Bf8+nWPK84QMDOP58PGCh3z9Zz
/fUckBhca9GK7RjfmvCkmQMy42/3xu9hoF4F9ndHejigBhmGrzNgoI9HfHVu
z3KAwuBW89m9DFRTYiq7eSMn6O5xe3nDhIHSzzCPm6dzwlZ3PxqzNQNZVtzm
kMvmhGVr09M52ELsO+Vn8znB7Kxjiq4NA12/7WWfXsoJNq7Hfp6zZaCr7/ta
v7VgR9yM6T7KQD4qL575sHFB8e/k356ODHRgyCMk6SwXtJNDuIdcGWhfiPwj
w0AuuJ22PcTZDceb+rV34RIX/FeykfoNe9des53H4rggKd7nZZc7A20sUJ+V
v88FMycGh16eZiCek3NuZV+5QI1X476NNwNxrT5Kdx3kgsH9Eb2N2GypJ9+K
jXPBI/34PTt8GOhvQ7f8pT9cEHnU4DH5LANNKlQM7BNaBwGshhL1vgz04VeI
ZY/ROvjYpce96s9ATcFa4THm62BHs/Gg03kGaqDQS3St1kH/ly1r9djVhk4C
d53XgWsI62pkAAM9ytdvdg9ZByF2xlqcQQwUf4ITVkrXgdXuG0cGLzKQ+a/E
TdLS3HD5sPo60Su4vU2/Ou0VuGHfjfdXnbBNzu24lLmRG947cfgWYu9nGWgX
3cENER1zeVphOD6ym86TD3HDiNdMgGk4A223f/OaK4wblqXDzzpcY6DneaIe
RlHcMOY8ZpmNrTlxmhxxnRvevTV83o+tdkHoFGsmN8xGuY4djWAg5QxHnrVn
3NBRpUg7GMlAkp1LVrND3MBCKtsgG81AtyTM/mlMckP5QymKLbaYy51Cnxnc
n3/nohKwhWf2rUytcYNa/WH2VWwSKeXOqAgPRDrdd+qIYSBWU7WJfmMekPip
Ie8ax0Dj9c6Xm4p5oN+XPqebwEAyN3o8rj/nASHmYBMPbEsHcyvLKh7QkYhU
TseuWdTe+L2JB4q2rAbSsZM2C3b+GeSBGOfEyFuJDKSTjpSUxHlBI1R/pfcG
Xm8ntgtNyfKC77YCAeYkBrqn8fBvqRIvUK6MlSlikz6kfdy9nRf+Nf2o9MH+
xeR10foQL/RuXqv4hx3nIdl2LYIX6FO18twpDFS7I6nCJJ4XftqyFKpgL7Bx
5Qum8IK04WjTfmynnNnArLu8ENy9Z/Aa9rbO5vVl1bygfc8pbgW7Xy/o/K8Z
XtC7EQddqXj/8NCdHizxwr1fT75OY+/vOWHiw8QHZNVqGa40Bir1PST7l48P
6iMEs7SxI+4rNZNV+OCPyIaIDGw1wW4pA0c+6P+odXtfOgMNxw+HpZ7kA6Xc
3xl22Fncf0ZGTvMByGcc8sTmZRMtjQvkgy7V2zOJ2OMLdvu6b/DBN7qYwGfs
3HMeD5Uz+IBXqpUxgm3HuEC6mM0HVy+Y3VjEbhrL7JV5yAfljukksQwGKvja
7+XewAdppwuoNtj2dtOfqpr54Gnp8vJJbEr32k7+j3wwn9+b64cd1ibD+qyf
D47f5NO9ge1Udzz97wJuf+33nUZsycIhlKDCDxlHlG6q3GSgToUFhZ/q/LD6
bHP/NuzYuxwx27T44YHJ4DgNe/mWkuUXfX6QNxE7aYXdE+8+ut6eH1hi330P
wU7kvmDm74zNc/JSJLZRZExpoxs/aGjKjSViv7j8MNjTnx/sHxcr5WEnn5si
vbjOD7/RoOUb7AOMVX+uVH44B0dcW7BZzvD3Hc3kh5nZ3Qe6sH1OqRf8u88P
krs0w39hm9ud1Tau5Yc2Dq4WplsMxNF9JTuzkR8mjfq8OLFfHU5inW7hhyoX
n1982Kqmz1qSevkhLTTYVBybmzZ//OssHv+ZgxIa2IF7lLleLPODTda7Li3s
YYNjjxOYBUBUXMxJF7tuf+2yvoAAcLpoDe/D3mIyd0dSWADubmcZNMHONlMy
WpAUALJzTskh7AuH45OLNgpAQIHhWzvsUcvX2uEaAiC9uo/PAdvaZvab/U4B
cOcUUHbG1rS3UyXtE4CTv7p63bHvOMR1jJkKgHZuw7kz2PzHUWD9EQFoIx39
6YM9cXLDm/PHBSAl9Yh+APZRN9vTh9xwew152y5gN3nECm70FoCoLt+1YGyt
MzXlrOcFYFPe9juh2Pnev//rDxYAt3gn8TBsIV8FtvJwAfgR5HrmKvZlP5sH
iTEC8OXTq5sR2PZBrxYMMnB/xRQux2A3X2TclsoRgJwAUZ047J2X5A3+FAhA
gvKGj/HY9y5bj7U/EoDUrVX6CdiU8OiEB88EoGiDSWIidti16u1XKwXARXBv
5Q1sRiS9779aAfh7XbQ2CdshZn3YjiYB2F+9rSAZ+0OclbJgmwBU6nK5pmDv
SohqHe/C8dJm5kzFLrxR5dfwVQCWnOKvERZOmRbPHhSAtyNig4SvpsnVBowL
QEUkWTYNeybD0tXitwA4XR7WJeyUGcm3aVEABtPWtAm3ZlU+Y/snAPzCjSKE
pdsXVOksJDBqfdBNvM/KgsRkz0GCNColgHBch8qnpnUkyG70XCL6V3/E4N52
PhLk75V2ILzcaR+USyJB9Pkb/x+PhvV5UwEKCVrfqrUT43X7nCATLEKCZGWH
ASIeObZFM6PiJEghR7YT8er+UvfGSpoEm6+R7hPx5Dv2NaNOjgR2TMedr2Mb
fp0/rb6BBCXxAyxE/C/+J0C7rUyCM1XTUbHYpQPKQutUSeCStTAXjT3mqD/k
r04CzpajRlHYsj+Ovfypif/ePfQyMd/XB687VGuT4BdTRiGxPt6cKNRQ0SOB
ZrdFxmXsv0O1bGlAgtoPNj6XsD1G5x54G5FgMqG1NwjbaOron/VWJIB3S3ne
xP6ghH8KtSXB867KKU/sOZ2HT74eI0ECT4S8B7HeY1Zc05xJ4Mt70/IEES+l
2z3rfEhA/e9Tlw32I+f+CkYMCRz9mrN0sFli2NPMrpNAsjKubQe2bclm3wc3
SBC3L2JmKzY706WNJzJIsGPxKJ8qsZ6ypDM/F5CgskwoRwKb1OMYXPOaBIJS
3v6LOJ+c+hdpK9FAgrMDjwZmsasVn24LbCRBpH6vHh3b3Z9pSqOVBLmRct+G
sOuE7v5X0EcCp2Lhsg5sP7Ofu+MWSNDg83z8AZEf604wH1UVBNYN5YY22Iw9
veIh6oIwmyNifBibs/bgtjuagsBiVmhihq2FdrkO7xSEwFZeUwPslCpSi+9e
QeCQerpbHfvg8+qMWAdBGJPKInFivy2gbHmVKAhbri6ElON8PqAQY/w9WRBS
JlkzSrHn8/45s6YLAvnghrJibIXc8VTjLEGQ2aG8lEfUh+zXK11FgiBeXf4w
EXt3umfjdJ0gTNwV7vbALotqcJCdF4RLZufZ5bELD7wXjVwUBHOPKQdp7Fu8
HR1TK4Jw3J3rNVGfLid+21fFIgTzSck3SdimGctq1iQhyL/S8GgN17Of97f8
i90kBCJ1gm5fsbvcd1TMqAlB3QzFqIeod5t2n7PTFAKWe4rqndjFT0xGFLWF
IM20RvwDdmD5qbbafULQ9Dv7eDU2f+PtnD/HhaDse1BVNjZzdJ6dw0khcNbu
08zEnjvwgPzGTQjqwzWfp2N/aS2PTPIWgpIv451EPc7v7vDeHCIE30xCEsKx
dw1zgUuGEBzqP0T3wN5cKLD8LlMIlB2frHPDlvUQfr4lRwgKSG5qJ7HZp+WV
1wqEwGo9Pc0Ru31+N+nmMyHYfOXkL0vsU+z+31tbhSCI7Oe9B1tc5t3nlY9C
UGXPZEXDbt0p1abcJQQzFucM9LC1PN+8CusTgsnDf3ZpY3N8omZqjQpBhmJT
sgZ25aR7ksuEEHhw9SN1bC+OmujEaSHwC82d24zdrX0qcHxOCNbflwzciF1w
54VVNjMZZJXeDslj21Zym71nI8OxmqPW64nzSaeD4SInGZJyD7XJYvtxcm49
zE8Gia0avVLYhl42JA4JMqTeOHlYFHsx8iHnVmky/PO6zyaC/ejuvzVHOTLc
lflZQ8WmdN2fqlAiw5o+hwkZ+5fOYvOZbWR4dcXiNT92hpVp3a0d+PNF+U/5
sE2971Q07iKD1rJXIS/289z9hXJ7yKBaJ/uYG9ut+naOuSEZOqiDVeuwJbsZ
aReNyKBj3NHOhX113c1rXWZkuFk6KsCJvVN+KpjFggx7s0e0ObAndff4qVuS
QaarzoMd29JnzDn6KH6uU/GdFVvhszbouZLhxCU9CWbsHkb8Dg8PMiyIVQQx
Ycdx/1RLP0MG9xn7gX/4/DenFyP1+xwZQgurKtawC20GKNIBZNhdb7CFsP1Z
TV6TC2RIvpDwaBW7Ib93Of8yGd60rnvxFzuwRm3mYzgZGv1ZDQir9oSNrUWQ
4X6LddcKdgrPph7beDJUGN1eR3j/htC2a4lk4Nhv/XAZ++/uT29Lk8ngVrZk
QdjF92IZ7y0ykHZEFS9ha2kOlKlkkUEu9r4LYe4ZeLHvDh7/Mp804f6SvBcu
eWQwvJ/9dRH76VmO8sv3yMBpq5tDOFzDvTyriAxSfu9OErb+/b688hEZ/NmV
txD+63Pj5VwpGb71fmv7g922Ze6l4AsysDqs5BPOZVhXqFWQIbbTM4Tw+acV
FSbVZEg7R7EjbOwjWemGyBAu1LGDsOSW0MprdWQY33hNjDCD/qMy9w0Z7vTw
ri1g1z8xrEJNZKj8YjREOM37ftXX92SIvE5pI+yuzl291IrX79KhKsK6dM9q
4Q4yFKDeIsKkJ23VW7tw/JUSbhEe9NJ8daiHDFslTOIJv1BLfXWmjww+Gyau
EI6Z/vMqZoAMO/xMAgn/9/hozf0fZLj02ciH8BavVzUNv8gQUlvlTphVTRb9
GCFD/r6wE4S7p8LQ2jjuv9R5J8JFxUNIYpoMjjln/yMcfGb/652/8Xw2mh8j
vH6Kr9b3DxkGZCh2hN95fqp9tEoG+cfXbQn7TGbUDbNS4KbElf9b2NOhXpab
Ah+3F9oQHttUW6/HR4FXY1HWhKsn5BuOkiigPF1pSTjhYURDAJkCXVqUw4Sd
T481pAhToN7Ow5zw9k2mb0rEKKCekGRMmGvi8ZtWSQoklRw3IPz1geDbCRkK
5Os90iH8xMPvLZc8BawO79MkHLbx89sNihTofMqqRNh6XLtRX4UC16vLxQir
PLjd6KhKAdWL27kJ/3X/1xisToHklIOL88T6UXFuuqlJgV+HewYJ5441NL3Y
ToFLuXc/ED5fpPTu004KvOQJKSVs7B7zjqFDgatPdVIJS6pMveOjUcD63GM/
wozRg80b9SkAfQWHCNcXljYb7aVAmOCMMuE0N+r7E/spcPmH8+ocsX6UA99f
MaFA88vGFsK6o73vs80pIHyffpOwQKHehyoL/D6HouOEf7re+dBjSYFDmvUK
hMuUWFvmbSjgL8YzOIsdNXKyRegYBdgfmd8mrO66qdX0OAViHVfXZrAH3GW8
i09QoCLV/g7hOE8yid+NAhl+/bsI7/LmLPE6TYGvu/RafxPze3bFos2LArSC
nUcJZ/jRZ9R9cf+nYwcY2PsCBpMT/Sng2DZzlHBe8Psui2AKiJSM7KJjHw5F
50tDKRB/czxrGpsp7JkIORyvh9HxP1PE+o7MtOuMpoDJfGPCJDZvTMLytngK
bI+htkxgV8aFZ6YmUsB3uz4TYZGk0/3W6RSIG6UYjWG/TXG8VH6LAqYvlY6O
YvulH5ERzaaAgtrs8RHsj7d1jn/JpwA3R5T5EPblHHWWXYUUkJOt1PxF3Kdz
5fNuPaTA0UPnuQexY+/zDB0rpcC5Ftvk70Q8Hvy7Vl1GgdC6QYNv2KOPZhWl
KijAJF033I+9t7TPbQBRgFGny9KH/a/64aRTC27f2zWyE/sxyomvbafAmfbW
2g4iP9clq63vpMDTL6yT7dgVjRd9BnspsMUxhr8F263ZW9BwAM+f5TaO98R+
a3Epzf9BgdUf9pNN2Oc6TOZOjlLgmUJXWAOxf7toqW8n8PrWD9Ksw27/vFVL
iU4B3WbDNoS9uV8icHSeAo1W862V2CMjEyserFSwKhLpf0Ksx/Fvt99zUCFV
3XryEbbh1Cc9VW4qnOVcGCrCvjtTFTpFosIs61RaHvax1VhWH2kq3NfKG0ol
8jvT5fx2OSr4fO3VS8J+yeK3V2MDFTKt40OuY1O57CNnNlEheHSoJILYb0Kq
PP7aVBhh/Tboj737zJmxTF3cnmR65VkiXo2PG+toVPh82yboDPb1YI2rpH1U
iLJ4UnwC23RYa/XhYSp0eXSMWhD5BgL7OqyoYHFkbMGUqGeZFRVLtlRYnx00
boTNc0j3vJEjFRJjyi/rYTdX7KH/PE0Fr8jTTkrE/FLCW9Z5U4H6V+iGHPYD
r4aHW3ypELktLl8CO1reyO1SIBVEOjN8BYh6GG/6Q+waFTaERt6dT8X3ESeb
T4eyqXBXq/9vFfa2qoySgLt4fJ+VNJ5j51N7E7LzqdCz7aH+I+yrzfamkw+o
wOU5upKJrb/N+U1kORUaLFarg7BLr+flPa6kggnrx3Yf7PVjv650vaLCKMdk
jSs2c7brbvkGKmiyBCpbYb/mPFNe006F7RpHFNWwtzg/Th36RIWxxQ5mBew7
1fRzvJ+pwOmR/FwMO/Ss75aj/VQI0DLOZsPe3RdQND9GBYXl9ICeFAaqehyW
qcoqDEL6rGMB2BymVuLpHMIgWPJ9xh3bYkzpJjO3MAS8t3tzDHtEviWtmyQM
k0UcdbuxyTdFki5LC0NgYTgPC/bp8EdRndrCsDgs6RqSjOudbCgnTU8YTvg1
VZ7GZq6xiCgCYYjZ59tqh52+uBB+yQh/3iBy63bs+jN7QpWthAF5cw6NJjGQ
hG23f7CPMGzz23bKAPvUfOHc8DlhmDBf8N+MXZJ08ZxFgDDkJafoimAbtcie
VbwkDFFNPJNjN/D+0T/t2R4rDHO/zOpjsd+rMrko3BcG0u76D68T8X5r7vhx
/YEw/G4rZrmHfdy1wGmpWBi0DTqHYrD/3D3g0Pocf55qWXIEW14k1S6wThh0
mUJNfiTg+y7zxkMf+oXBtGxwdeI6Aw0b8vQo/hCGMBneIx+wD0VNOl75JYzv
66nmj7AVBJ54a00Iw/EOU63T2B8ktyXcWRSGCNvPL37F4/v+zt2tfmQR4DJY
mn4Th/P7RRnrNmER8B9+4XAHe6aGaUBFHD8XLvG4gN24t35qQFYEhjTrLDdj
+xzZz2esJgLtuQKO12PxfdHrsKmUsQhcKc18qRuD90vp1s4AUxEo2bMvi4Sd
Nk+x7zgoAtL8qeRf0Xj+gj+fjrQWAYkT7qXR2JQY+9jfLiLgVvGloC0Kx7/g
VPObSyLw6ClL895InA++Xtjv9VwE5n7MiHeH4/NgQBFfQjl+X+z6vmzs40I9
HU8qReDJ1ltKrtgv92//7/drEWiUWXReCMPvK6Of9WsRAXP/i4cFsGuvn8i8
MCwCkS4ccRsv4/O0SrJT5pgINHhXNE6EMpDom9oN1ZMi8NBw4tojbK8V6aer
MyKwYad5pCq2pNuXhsv/RMDidkqc4iXi+zXz6QhRUXjUqkNhCcb782vws/sS
opAfm6hadRHnp4CHgU3SonBB0fTVOWzFx1ys3BtEwXun697BCwz0SbxeJF5D
FEbcFAeqgnD9mNuxJ/mAKBxouHvncAADDd2TS8kJFgWN3PfvBX1xf6/+WGK9
LApvNBOkSs7i+XK+6+gWLgpUz4cvDmIzycht0ogRhZk6p6oYH3w/S5etq0sX
hTXZ9vk/Xni9RMowhkpF4Z6vyqnHp3G+c5UyVR0Thca8mf6rJ/D+2Ntfkjgp
CjcXZ4/xYDfLZ4nM00UBHdBju+HCQJ+/SQ6+WhAFr9rptpvOuH0byQsH2cRg
04Mi7btODKS8X6LQV0YMws6pXI2wx+d/ZTG2CisxoK6rUcs/guuVg+L9QVsx
+HihXloUWyFl6wF+ezFI+JyoHXsY35f+mSW6OIuB212Y9LJgoM7uMEl+bzHY
b0dWVz2I88G1yW0uUWIgq3rPN+QAAyX9QCf5qsRg1yv5Df7AQEdFWrh21oiB
gh9n1wcazndmvQ+da8VgWFguVR679OXc7/JGMcjve6zfqsdAHQkql5w7xeAS
tVJHVIeBBHcnp5VPiQGjrPNbyHYGSrx1qvG4rDjssP5cGa3CQAHnw84Fy4tD
Drm19I0yAzkczpZJVxSHi3I6RUzYqtzdAR9UxUFCSOz6OUV8/g3aq7xDWxzy
Zw1lzeQZiMVOIZr3sDjIDvIXtUoykL/IzwPl4eKQCAPH2AVwfGZXFz5GiMPq
zq4QGX5cP9vE8iajxeGY+5uwnXwMJBRpsSKXKA4WK7Marjy4vi28fhh3Wxw2
RunwlnPi80RXDq9zmTjEFf4bkmHC8Uj5r5V3RBxGo7XKZL7TkeQzbonT4+Jw
ICckq6+fjr59LHd9NyUOzZcNc1P66OiEgBBzxJw4qCpSFle76cgr5u3Wf8wS
IC7Om1LcQkdhl9Vv/paUAK1SyahLlXRU5Ml8ovuwBETJG1R036Ajz9jHT7dZ
S4DzlfEcjQQ6UntwbDXJTgKcvptZR8fRUelIWdpBJwkY2uCjrB5JR9XOHu+a
zkjAmfL9UpbBdNRu+0mtKkoCSguC5ZlP0dGiYcFSTo0ELElUh3dr0VFwVU54
Q60EZO2sgZWtdMSkeYtvrEEC3K64zUpq0BGnTIKc5nsJ0N5roGGziY6ElwKN
Gz5LgLrgSsc9GTraWmx6c5QhAQUnYtqecuLxUed2ashLwgfdmA6nrmk0Eztd
Z6UoCaKfZzfIdkwjf5Yx0wsqkqDoYL7pa+s0Cqb3O9WrS8ImvTAD4v/nse8a
o6x0JaFI5qX3WuU0KgzJ7AmykgRp05qRhpxpNDikH1gXKQlf2TTfVZ2aRvo5
rbkbYyXh+ID81CvnaXTH9mhL0nVJyOVYGqhymEYO78+ud0mVhNstGnIPradR
79M7H1jzJIHirtZhvW8adVxck91bIwl7X/8M+q4wjeoEK981zklCkDBbfNHA
FMrV05BoOS4Fnz4PfD9vOIXqzLnDV05IwZRhSW4xbQr9dBwcV3GTAq2TKzLf
d00h+bDUyggvKWBKXTPYqTGF8t8u2cFFKRiL2zX7XGoKFRysy3iWIgUiEU1L
/fOTqPD4EeFbjVIgETXFNZA7iYqv+Qu6bpaGZ18Y7kL0CTSp+1/YtS3S4Dny
5prB2ARSnTOczdsqDTxLf/94D06gB86Uru/a0mDL4tld+XkCFdKeZRzdJw1+
Gwt1RF9PoPwlhoy5ozQYxy08oSdMoFtnPNW235CG0sDzfcyqEyjSysWEdV4a
+PXgqbbVOMo9+NX+5KI09PpvI6eZjaNqYyuvxhVpWK3TPTK5dxzN6BndiGWR
gSNf7jtGaI0je8VNn8kkGdD/6uDgIzKONP/MOCtskoEfbOl3xHrG0EBG2IW9
x2XgI1e38mPLMbT9692iyBYZSBBdOaC/axSR1NwWn7TLwA7ZyOJsjVE0Gapm
1PNJBnQb+WTnlUdRvnzVL+VeGcjZNbcpUWQUUU53yjQPy8Clk39yLs2NoOVg
VhMOJlnoM/rHrlM8gr7waNXuF5OF9Mh1WevFR1CGSmZxi4kssGkbZu38MYRC
X8dnmFTIwq0CYVf5Hz+RmYRVQbOCHPg46Xf//jaA9ng1HhOMloMDn8oeNId/
RjmSzgof5uWg5p2OJvz+gBTq76eZH1sPd2yPneThfY4SN9dt7KhZD+pMqt+7
u5/TTs2yfXy3UR7mnyd4Vx/5SHMumZGNTpAHTmuy/r+oflpTM1d49V952FEi
czL/4xDN0+BH4jvsBLFU27COIRqpuiK7G3ti+JSZ06chmm2xRyUDe/SqjI5k
1xBtJOHDb4VVeXDKHFRM6RmicVglOsVj+2YV065+G6IZfBPZ7bAmD++0//qf
nBqiDdswTE5jV3KOpRhMD9Fi2pvsArG/920pk6MP0Tpqg/yTsPM9Pi71M4Zo
zvl9j95iW05bJlvPDdEuu+dIqP+TB1n6Mc79K0M0hZ8BKrrYMouzOop/h2hN
Rw/tMMY2sRk+y7aK+2/KfMQFW27yy4/Xa0O0HDWXmHRsW52Vj9oswzT9+zoZ
+YRrTwiKsg7ThmUo90qwA/cqH17AVhN8U/seu0vi1edS9mFaR3RWWw82h+11
yRscw7TzLOf7h7DVTlU4e3MO08Qvmk/MYB/Q2f3AjGuYVjOruPQP2+KD5Oym
dcO0/wG/f+Sb
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-1.570796076373418, 1.5707962469511496`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4697948504651337`*^9, 3.4697948554676*^9}, {
   3.4697950153353767`*^9, 3.469795093503131*^9}, {3.469795206425818*^9, 
   3.4697952215568647`*^9}, 3.4697953386845512`*^9, 3.46979540982016*^9, 
   3.469795461725795*^9, 3.46979607094801*^9, {3.469796122204246*^9, 
   3.4697961753134317`*^9}, {3.469796212247798*^9, 3.469796245104357*^9}, {
   3.469796401474835*^9, 3.469796449531921*^9}, {3.469796613460616*^9, 
   3.469796630380891*^9}, 3.46979667428671*^9, 3.469796729831931*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"hIn", "-", 
      RowBox[{"B", " ", "t"}]}], ")"}], "/.", "pVals"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "tSim"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.469795112053308*^9, 3.469795140831382*^9}, 
   3.4697951999064627`*^9, {3.469795272170178*^9, 3.469795272582017*^9}, {
   3.469795316690373*^9, 3.469795316952531*^9}, {3.4697961168455963`*^9, 
   3.46979611819587*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1GlTk1cAhmFiiEtATaiyQ1YXAkaoFVq3cxRqUTDjAhKhDRIsKCAoAxql
lRSxgBZlHFojFgNVUaxgsVgWA4fdyBIgQAQSfGWJIsgYjVFZlJ7O9MMz91x/
4GGJ43Z/P8fMzEyA919zT4nnehw4t4kPrMdmZwnQ0MX0D2IeAnGTnPTJKQLM
NlWfZjJPgL/+9lhuNBEgtyaTQWFmgDUrd4ifjRMgZmPi4feMy8CLntrf+pgA
XdMHsw2MQrB5+HXz5bsEmKcdWjHBqAB70tr+XBNKgPxm+dFxxiMgaU89HFn9
BBTfzdDG8PtBT7fFWG3YAIgEnZdfxg8D55q4JV6OOhCrdxkuLX4ByqIbKIsH
+gGVlbqC+NIAxL94GPpS+sB5Wgsvf78RTF1MSkegF4i1AYjc+g4ULHpiJxvU
gKONqeK4FVMgb7tHfFdGDyg5YrnHdttH8HNMmMRlWzfIT4oecw8yg8nk28fj
J9QgRT6z6+1LEjwgbedqbnUCs66nUHGSDHOq9LLfozrA8oQISQCPAuuIlZZ3
2CowYrq016JqLnSjwS0BV1vAdn3UjxePzocKXnrU0LASCEayXJ2dqXC0sYTp
6dkExurFUmWRBTS4/fo5+qce8OkaJ+/QhdDxVKEnn1QLqMAUpjMugj6er9xu
GBXgm4ng9+xAGszzmeiokJSB3roDpGA3OnQPKM7aZ3MP3E9vEDFNdGh417hY
yb0NIiiJT1UqK+iu02e+SL0KwuOT7lvmfAalux1LteGpYHWkq8o/bAmULkjq
qUs8jdqt3CwSv1oKpYMk55+EcvSgOOWKG9ka1rx6MLmurhAlkXg7Wwesoe21
vjaB8B6i6k76xpbaQNoOK7LpfhnSF7Cy5T/YQmHoY6l7mQJlr7Qzrwi0g7cE
Tgt3WtWirJyIh2FMe9jBWnpKnVOPgrO/U1k+t4cBCa5hF6yb0AefG5PyagdY
qqPtjlAq0bB+i6QuzRHCExuez/NvQX9s9HBoC3OCea5eZ+spKlR0JpEeucoZ
Wi9QjF737UBpgeF+ZJMztFREf01J70RrdfmFaW0MaJicUxg/pEYylytFbX5M
OLqrStS4rBsl12TK/CqYsPmLUIdlqT1oh0PgjWYuC4qCaHS2ToM2xz4MoWew
oHn2iNDcqRfJHcXcVhMLykLybholfYhbf/M3QQgbwo3JvsqqfpS1qo6nrmbD
HNFh9roZLYowmnc+4nHgU6o3uSJwAIlL3jAzLnDgus71nk6yJ0jZPP+0YoYD
pWzHI+dNBIrxHsx6hP2Wau5Zjk1TVFzVYB80jk8PYguLoioN2IKGB2lr3xHo
+YXW19yPHGgbESLXYc8NzNqfiV1cmKPifSCQN2GzSfSJA3vd7VY9nCLQsyCD
XzS2rx3JaMA+26HcJ8GuJL0ot58mkLr2ROJF7Dx1uU8stvi69k4TdmyC8Nul
MwSSHpI7rJ7lQLPyS+fCPxKIO3TcZQN2Ql7yrkxsZfBOr23Yo+mRNmXYNH/S
nnBs1T6va9RPBJLzw89ewpZNaypLsLfcXC+7jj1/pFqqxX7GWFJQgn2ytWAr
ZZZAfHpjbQv2/txjaiG2OiO3vRe7+4xIloJ9bM6xAT22b+xW0R1s+yTB+Bvs
yr18rga72rh8chb7/z9D/wLtA3Ws
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {-0.49999997959183673`, 0.49999997959183673`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.469795141430767*^9, {3.4697952064742517`*^9, 3.4697952215933313`*^9}, 
   3.4697953387362556`*^9, 3.469795409849464*^9, 3.469795461771102*^9, 
   3.469796070980213*^9, {3.469796122252646*^9, 3.4697961753544807`*^9}, {
   3.469796212281502*^9, 3.469796245153921*^9}, {3.4697964015035057`*^9, 
   3.4697964495780277`*^9}, 3.469796630411598*^9, 3.4697966743268347`*^9, 
   3.4697967298642387`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Heuristic model with nonlinear in-lever (unfinished)", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}, {
   3.469278262342388*^9, 3.469278263801881*^9}, {3.469281154932828*^9, 
   3.469281182597642*^9}, {3.469451011535277*^9, 3.4694510338026876`*^9}, {
   3.469479970556417*^9, 3.469479973283457*^9}, {3.469793208520671*^9, 
   3.469793209727414*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.4692784482487173`*^9, {3.469278892566986*^9, 3.469278908586074*^9}, {
   3.469278948273715*^9, 3.4692789822518587`*^9}, 3.469279051396206*^9, 
   3.469279172313555*^9, 3.469281290688089*^9, 3.469283763985681*^9, 
   3.469287450972332*^9, 3.4692916006669083`*^9, 3.469291820514844*^9, 
   3.469452442876277*^9, 3.469452574827408*^9, 3.4694529291230183`*^9, 
   3.469453046665125*^9, {3.469453127320716*^9, 3.469453153961191*^9}, 
   3.4694532536618433`*^9, 3.469453382600111*^9, {3.469453428854762*^9, 
   3.469453454526821*^9}, 3.469453529187903*^9, 3.469453736960314*^9, {
   3.469453770671598*^9, 3.469453823133222*^9}, {3.469454025282868*^9, 
   3.4694540619796553`*^9}, 3.46945418491405*^9, 3.4694580191082373`*^9, 
   3.469458150680461*^9, 3.4694583257774754`*^9, 3.469458392002483*^9, 
   3.4694585308744383`*^9, {3.469458883503354*^9, 3.4694589038572493`*^9}, 
   3.4694589521805077`*^9, 3.4694590817377577`*^9, 3.469459114244115*^9, 
   3.4694592434365807`*^9, 3.4694596149438047`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"numLs", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "\[Rule]", ".003"}], ",", 
     RowBox[{"k", "\[Rule]", "15"}], ",", 
     RowBox[{"hOut", "\[Rule]", ".04"}], ",", 
     RowBox[{"\[Theta]Initial", "\[Rule]", "Pi"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lVals", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"L1", "\[Rule]", "1"}], ",", 
     RowBox[{"L2", "\[Rule]", ".75"}], ",", 
     RowBox[{"L4", "\[Rule]", "1"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.469278843638781*^9, 3.469278858354491*^9}, {
   3.469278930078511*^9, 3.469278960207753*^9}, {3.469280780050006*^9, 
   3.469280788673625*^9}, {3.469287444538252*^9, 3.469287447032455*^9}, {
   3.4692915966092777`*^9, 3.469291597442411*^9}, {3.469452529856844*^9, 
   3.469452530300722*^9}, 3.4694534011632032`*^9, {3.469453447710578*^9, 
   3.4694534509955187`*^9}, {3.4694577715276527`*^9, 3.469457775591733*^9}, 
   3.4694586186465693`*^9, {3.469458898172937*^9, 3.4694588983069963`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"KT", "[", "\[CurlyPhi]_", "]"}], ":=", 
  FractionBox[
   RowBox[{"L1", " ", "L2", " ", 
    SqrtBox[
     RowBox[{"1", "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["L1", "2"], "+", 
          SuperscriptBox["L2", "2"], "-", 
          SuperscriptBox["L3", "2"], "-", 
          SuperscriptBox["L4", "2"], "+", 
          RowBox[{"2", " ", "L3", " ", "L4", " ", 
           RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}]}]}], ")"}], "2"], 
       RowBox[{"4", " ", 
        SuperscriptBox["L1", "2"], " ", 
        SuperscriptBox["L2", "2"]}]]}]], " ", 
    RowBox[{"Csc", "[", "\[CurlyPhi]", "]"}]}], 
   RowBox[{"L3", " ", "L4"}]]}]], "Input",
 CellChangeTimes->{{3.469452305256894*^9, 3.469452318725951*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"KTval", "[", "\[Theta]_", "]"}], "=", 
   RowBox[{
    RowBox[{"KT", "[", " ", 
     RowBox[{
      RowBox[{".9", "\[Theta]"}], "+", 
      RowBox[{"Pi", "/", "50"}]}], "]"}], "/.", "lVals"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4694528925891953`*^9, 3.469452892869759*^9}, {
   3.469452991540846*^9, 3.4694530141253643`*^9}, {3.4694533753771763`*^9, 
   3.4694533771752253`*^9}, {3.469453412587338*^9, 3.4694534254494553`*^9}, {
   3.469453524646551*^9, 3.4694535260631742`*^9}, {3.469453580892004*^9, 
   3.469453585279595*^9}, {3.469453626151922*^9, 3.469453641079536*^9}, {
   3.469453690073833*^9, 3.4694537183615723`*^9}, {3.469453766817746*^9, 
   3.4694538198309593`*^9}, {3.4694538754421453`*^9, 3.469453989671708*^9}, {
   3.4694540472286453`*^9, 3.469454059635293*^9}, {3.46945418117165*^9, 
   3.469454181376223*^9}, 3.469458376800809*^9, 3.46945923986132*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"L3vals", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{
     RowBox[{".2", "*", ".5"}], ",", 
     RowBox[{".2", "*", "1.5"}], ",", 
     RowBox[{".2", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1.5", "-", "0.5"}], ")"}], "/", "numLs"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataList", "=", 
   RowBox[{"{", "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.469457556486951*^9, 3.4694576209270983`*^9}, {
  3.469457687372678*^9, 3.4694577649048634`*^9}, {3.46945783154907*^9, 
  3.4694578565276203`*^9}, {3.469458829625457*^9, 3.4694588324713373`*^9}, {
  3.469459227452791*^9, 3.469459232140562*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"For", " ", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "<", 
     RowBox[{"numLs", "+", "1"}]}], ",", "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"L3", "=", 
      RowBox[{"L3vals", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Theta]", "[", "t_", "]"}], "=", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
       RowBox[{
        RowBox[{"NDSolve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"k", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"hOut", "/", 
                   RowBox[{"KTval", "[", 
                    RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], ")"}], "2"],
                 " ", 
                RowBox[{"\[Theta]", "[", "t", "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["hOut", "2"], "m", "  ", 
                RowBox[{
                 RowBox[{"\[Theta]", "''"}], "[", "t", "]"}]}]}], "\[Equal]", 
              "0"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], 
             ",", 
             RowBox[{
              RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", 
              "\[Theta]Initial"}]}], "}"}], "\[IndentingNewLine]", "/.", 
           "pVals"}], ",", "\[Theta]", ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"dataList", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"dataList", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"KT", "[", 
              RowBox[{"Pi", "/", "2"}], "]"}], "/.", "lVals"}], ",", "10"}], 
           "]"}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{"Max", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], "/.", 
              RowBox[{"{", 
               RowBox[{"t", "\[Rule]", 
                RowBox[{"Table", "[", 
                 RowBox[{"t", ",", 
                  RowBox[{"{", 
                   RowBox[{"t", ",", "0", ",", "2", ",", 
                    RowBox[{"2", "/", "1000"}]}], "}"}]}], "]"}]}], "}"}]}], 
             "]"}], ",", "10"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Clear", "[", "\[Theta]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"i", "++"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4692783034179564`*^9, 3.469278441173403*^9}, {
   3.4692784803047333`*^9, 3.469278480655196*^9}, 3.46927851885882*^9, {
   3.469278751424926*^9, 3.469278796184059*^9}, {3.469278976518382*^9, 
   3.469278978393475*^9}, {3.469279100815261*^9, 3.469279114553009*^9}, 
   3.469279161204873*^9, {3.469281219296733*^9, 3.469281269987212*^9}, {
   3.4692837574331217`*^9, 3.469283759039463*^9}, {3.469452328353825*^9, 
   3.469452333009631*^9}, {3.4694523763575783`*^9, 3.469452428790606*^9}, {
   3.469452559286502*^9, 3.4694525618215*^9}, {3.469452666365296*^9, 
   3.469452668403099*^9}, {3.469452728468294*^9, 3.469452742200798*^9}, {
   3.469452780798533*^9, 3.4694527820741997`*^9}, 3.4694528239976377`*^9, {
   3.469453035175509*^9, 3.4694530405188847`*^9}, {3.4694531003403797`*^9, 
   3.469453101786481*^9}, 3.4694531486705*^9, {3.4694532059283867`*^9, 
   3.469453207117292*^9}, {3.4694538537480373`*^9, 3.469453854041751*^9}, {
   3.469457476687833*^9, 3.469457477409114*^9}, {3.469457540870332*^9, 
   3.469457543658971*^9}, {3.469457602136194*^9, 3.469457674484128*^9}, {
   3.469457861973967*^9, 3.469458005919023*^9}, {3.469458084606913*^9, 
   3.469458133262217*^9}, 3.469458273375699*^9, {3.4694584836579027`*^9, 
   3.469458491176848*^9}, {3.4694585629216537`*^9, 3.469458592021925*^9}, {
   3.46945867988421*^9, 3.469458708376335*^9}, {3.469459062176735*^9, 
   3.469459072960123*^9}, {3.4694591040667887`*^9, 3.4694591065381403`*^9}, {
   3.469459174094603*^9, 3.469459235760702*^9}, {3.469459569755437*^9, 
   3.4694595939249477`*^9}, {3.469459648078041*^9, 3.469459648855221*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"line", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"dataList", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4694597214630423`*^9, 3.469459739022676*^9}, {
  3.469459796818533*^9, 3.4694598021699877`*^9}}],

Cell[BoxData[
 RowBox[{"0.8712620816575536`", "\[InvisibleSpace]", "-", 
  RowBox[{"0.1437220320656244`", " ", "x"}]}]], "Output",
 CellChangeTimes->{3.469459739749297*^9, 3.469459853891564*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"dataList", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{"line", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1.", ",", "2.4"}], "}"}]}], "]"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.4694580246913958`*^9, 3.4694580580186033`*^9}, {
  3.469458962118441*^9, 3.4694590038505583`*^9}, {3.469459149569829*^9, 
  3.469459156336391*^9}, {3.469459251589384*^9, 3.46945925269318*^9}, {
  3.4694597708520527`*^9, 3.469459885206601*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], 
     PointBox[{{1.1856753394332737`, 0.7218157785458922}, {1.431753642198354, 
      0.6535016347160759}, {1.6925637538986782`, 0.6104003043108741}, {
      1.9782226506855007`, 0.5798575720753185}, {2.298523719227381, 
      0.5566315255879501}}]}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0Hs0lHkcBvB3Zqxko1BtROuyaGpTVFumnO/rllyOCpWVS2XS5SjOKtNq
zIxLk7UkqVmztiVJLnusVBN2hJhuG22HsKWYd96ZaYfqxWDGdX/98ZznfP56
znnsDieEHKFjGBaM8rkVx6sXYBgFhenSxfSdagii53o/pFGQ1zBZJvBTg+TX
U/xMBgVCyo01v0MNWX+7ThotoCApupI946uGb9fVq8xMKQhmiRomvNWQTLXL
HKwpMBhNiB0CNSzkvMvw20pB4iGH+91b1LA+0wzLS6TAD8+OvuWshmAvovGq
hoISlwPTBQZqaOX+ECKMHIGw4cqyLoUK6vDpJtbzEXD+VCq736aC5IqPQ3G+
o1BuX7xJUaKC3JzrE1zJKAgcLWsPCVTAWdrcZuw6Bgbfi350jlLBgOMrdmTl
GFS+bGrMZ6mg6E4V8YulFiosY412WalgjVJjH1ighZDLX5aFTiphUYEG3huM
w/7XrkHVPUqIf0Zs8D89Dtyj9PhbEiUU3/Ql7T6MQ5Bjz7+aAiU4zR49TUZN
QHKdc1hakhIEOu2jVX0TEJTItY7ZrYTw1JQP1rsnwTPpXKR8nRIyeM2UQcsk
XPbVVUhMlJDmkCBhu+sgd+dZ7y4NCV0+78JrqnSgsErWeD0jQbewvinBUQ+k
DWdAX05CUXj2hPaaHgzi7IP2ZpKQ72C9iG06BYLUQBmDTULE5RVkQNYUlMs4
OXqcBE5qd+HKqSlY/dbuoJctCeajWXa1x6fhqXty9XqMBIFxRbyUmIZljzt8
2G8V4FUsvFIXOgNShxuaIakCenpf8Gw7Z8D09rl3jWIFvBebeYTsmAVBxpy/
C0cBwX3mfScls+iP+VbtPgVcaORtpm2Yg/ZJehZ9kwKWWlYl8K7PgUicGRFr
oYCvaZ2pzUvmIUtQW3ZsjIDZnMjgsz/Ng2PhwPZ7/xDgcrVq2mpqHmz4OfKw
WgLEJbfvWbEwvEW0vXtbLgGyux/eWCdheFPqia4z8QTUmjgNY9UY/rrSKyAs
iIDM+oK3JWoMv2G4anEKk4B0u0NNm21p+CM3zuCoEQEn+mN5wigafiWva75O
KQez/sPMBjENT3d9LfqqTQ5ycevDwZc0/HlpNOtFqRyKKvd6tJvS8WYf1dpO
vhz4HP/y3/zouKlkiGkbIwf7bHf9Pj4d58YXFS8HOdR8jF7X8RcdF4UGx4ZZ
y4FtRu7aqqXjxsb8jcrpQWAIfw+NcWXgzJG6PU19g0CmmdyIQ35y/pVNA3J7
Knf0JPJRK91/d5GFZyLyucg3vT3S/0A2PrL8hRjZVvS4rgjZ3OdiQDfyim39
FinI9nSep78bAzc8/0XPd8iMueFLu5FvWq4udfu8pz8wuB/ZpybglAty+Yg7
Pw45vTfP0Al5jXxcmoE8x7TasgzZreXk1gfI2k6XwrHeQbCQ9l+QIV+J3cP+
hKy9H9j7HNlNl7RhCFnyJzP5DXKiXcMTAplVrLyjQx5O8ta/RF5ZFMbANjLw
n43iZB3IM6K2kAXIa65l5T9FfnDx+sgy5GOPOpityMXZSzxtkA0PUONSZIGQ
f+kb5PJP5g/rkQ+mfxxYi+ybufniXWRPXtT6jcjkivCIWuT/AfmYaKE=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.2000000000000002`, 0.6},
  PlotRange->{{1.1856753394332737`, 2.298523719227381}, {0.5566315255879501, 
   0.7218157785458922}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.469458058804802*^9, 3.4694581512549*^9, {3.46945893326653*^9, 
   3.4694590045565767`*^9}, 3.469459118752985*^9, 3.469459156870253*^9, 
   3.4694592538491173`*^9, 3.4694596152764997`*^9, {3.469459847104918*^9, 
   3.469459885808177*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Import parameter values",
 StyleBox[" (instead of defining)",
  FontWeight->"Plain"]
}], "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788228628841*^9, 3.466788241853465*^9}}],

Cell[CellGroupData[{

Cell["Set parameters", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.43385083875504*^9, 3.433850852652391*^9}, 3.4341193136118183`*^9, {
   3.434289716647056*^9, 3.434289719086936*^9}, {3.4342898896403103`*^9, 
   3.4342898900238256`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"KillMech", "[", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, 
   3.466787869116115*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "::", "\<\"shdw\"\>"}], ":", 
  " ", "\<\"Symbol \\!\\(\\\"ClearMech\\\"\\) appears in multiple contexts \
\\!\\({\\\"MechanicalSystems`Modeler2D`\\\", \\\"Global`\\\"}\\); definitions \
in context \\!\\(\\\"MechanicalSystems`Modeler2D`\\\"\\) may shadow or be \
shadowed by other definitions. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/shdw\\\", ButtonNote -> \
\\\"MechanicalSystems`Modeler2D`ClearMech::shdw\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{
  3.466786260121735*^9, 3.466787697929195*^9, 3.4668513920307207`*^9, 
   3.466851641627792*^9, 3.4668519709459333`*^9, 3.4668520796879253`*^9, 
   3.4668524501482162`*^9, 3.466852522540847*^9, 3.4668526870020742`*^9, 
   3.4668536664869013`*^9, 3.4668548201335506`*^9, 3.466854889597045*^9, 
   3.4668564625068493`*^9, 3.466952252456072*^9, 3.466957178346561*^9, 
   3.466957401548367*^9, 3.466958982376659*^9, 3.466960317468165*^9, 
   3.466960745962718*^9, 3.466961326162109*^9, 3.466962115021668*^9, 
   3.466964673604381*^9, 3.46703353712479*^9, 3.467034055594611*^9, 
   3.4670491367012653`*^9, {3.4670491899979763`*^9, 3.46704920230713*^9}, 
   3.467049492537396*^9, 3.467049616334437*^9, {3.46704965504924*^9, 
   3.467049665143108*^9}, 3.46704971567202*^9, {3.467049795705017*^9, 
   3.4670498232331667`*^9}, 3.4670498839420958`*^9, 3.4670502823679*^9, 
   3.467050612858285*^9, 3.467051565616909*^9, 3.467131106098455*^9, 
   3.467131156092662*^9, 3.467131611846434*^9, 3.467391055213336*^9, 
   3.467391864661303*^9, 3.4673920406898117`*^9, 3.467393332838293*^9, 
   3.467393368553506*^9, 3.467393887486376*^9, 3.467395314969508*^9, 
   3.467395691388833*^9, {3.467395757892342*^9, 3.467395786896797*^9}, 
   3.4673958187299757`*^9, 3.467395986228581*^9, 3.467396325544333*^9, 
   3.467396708422196*^9, 3.467397415273758*^9, 3.467397703600616*^9, 
   3.467400219678578*^9, 3.467466485277327*^9, 3.4674671213766937`*^9, 
   3.4674786016391697`*^9, 3.4674795897673903`*^9, 3.467479889238076*^9, 
   3.467480318862711*^9, 3.4674804482413797`*^9, 3.467480795343515*^9, 
   3.467480827536489*^9, 3.467482811680235*^9, 3.467482946836265*^9, 
   3.467483052984454*^9, 3.467483569241737*^9, 3.467483682784971*^9, 
   3.4675846384994783`*^9, {3.467584676118498*^9, 3.4675846985365334`*^9}, 
   3.467584729407338*^9, 3.467584806908839*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"currPath", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\</Volumes/Docs/Projects/Patek_project/pod_model/sims/curr_path.txt\>\"\
", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Text\>\"", ",", "\"\<Lines\>\""}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.466786522027617*^9, 3.4667865476764727`*^9}, {
   3.4667865802881813`*^9, 3.4667866397454853`*^9}, {3.466787041425016*^9, 
   3.466787083153205*^9}, {3.466787377043317*^9, 3.466787378881341*^9}, 
   3.466787686616806*^9}],

Cell[CellGroupData[{

Cell[BoxData["currPath"], "Input"],

Cell[BoxData[
 RowBox[{"{", "\<\"/Volumes/Docs/Projects/Patek_project/pod_model/sims/s001\"\
\>", "}"}]], "Output",
 CellChangeTimes->{
  3.467466604088314*^9, 3.46746712156464*^9, 3.467478601829484*^9, 
   3.46747958986808*^9, 3.46747988941193*^9, 3.467480319021908*^9, 
   3.467480448407652*^9, 3.467480795506249*^9, 3.467480827688716*^9, 
   3.467482811841514*^9, 3.467482947008469*^9, 3.467483053112808*^9, 
   3.4674835693658524`*^9, 3.467483682935944*^9, 3.467584638613906*^9, {
   3.467584676234571*^9, 3.4675846986501102`*^9}, 3.467584729523966*^9, 
   3.4675848070231657`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"inParams", " ", "=", " ", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"currPath", ",", " ", "\"\</input_params.mat\>\""}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.466787338920322*^9, 3.466787360497628*^9}, {
   3.466787508673229*^9, 3.4667875312645597`*^9}, {3.4668513797269373`*^9, 
   3.4668513851096478`*^9}, {3.466851652365765*^9, 3.466851684576991*^9}, 
   3.466851944651925*^9, 3.466852070019998*^9, 3.466854691438105*^9, 
   3.4674829506438093`*^9, 3.46748304732108*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tEvalIn", " ", "=", " ", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"currPath", ",", " ", "\"\</eval_time.mat\>\""}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.466787338920322*^9, 3.466787360497628*^9}, {
   3.466787508673229*^9, 3.4667875312645597`*^9}, {3.4668513797269373`*^9, 
   3.4668513851096478`*^9}, {3.466851652365765*^9, 3.466851684576991*^9}, 
   3.466851944651925*^9, 3.466852070019998*^9, {3.466854691438105*^9, 
   3.466854726005868*^9}, {3.467049235519855*^9, 3.467049235605685*^9}, {
   3.467049333467435*^9, 3.467049336362997*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"L1In", " ", "=", " ", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L2In", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L3In", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L4In", "=", 
    RowBox[{"inParams", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXLocalIn", " ", "=", " ", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "5", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EYLocalIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "6", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FXLocalIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "7", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FYLocalIn", "=", 
    RowBox[{"inParams", "[", 
     RowBox[{"[", "8", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"thetaStartIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "9", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dMassIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dIIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "11", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kSpringIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "12", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"thetaRestIn", "=", 
    RowBox[{"inParams", "[", 
     RowBox[{"[", "13", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simDurationIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "14", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dAIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "15", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"rhoIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "16", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CdIn", "=", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "17", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"waterIIn", " ", "=", " ", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "18", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mxErrIn", " ", "=", " ", 
   RowBox[{"inParams", "[", 
    RowBox[{"[", "19", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.466851671006524*^9, 3.466851805270096*^9}, {
   3.466851844224741*^9, 3.466851915651497*^9}, 3.466851983937646*^9, {
   3.46685241707987*^9, 3.466852444479657*^9}, {3.466955569694524*^9, 
   3.466955570447221*^9}, {3.46695650400705*^9, 3.466956530036388*^9}, {
   3.46703151246463*^9, 3.467031513429702*^9}, {3.46703395099435*^9, 
   3.4670339590059137`*^9}, {3.467048959682325*^9, 3.467048997011898*^9}, {
   3.467049182278183*^9, 3.4670491851737423`*^9}, {3.467049339270176*^9, 
   3.467049476837748*^9}, {3.4670499341508617`*^9, 3.467049942021761*^9}, {
   3.4673932052128773`*^9, 3.467393205757135*^9}, {3.46746551979305*^9, 
   3.467465523086985*^9}, {3.467481595515082*^9, 3.467481606889659*^9}, {
   3.467483403110375*^9, 3.4674834119367933`*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "inParams", "]"}]], "Input",
 CellChangeTimes->{{3.466851932505539*^9, 3.466851955883605*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Define parameter values",
 StyleBox[" (instead of importing)",
  FontWeight->"Plain"]
}], "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.466770669087039*^9, 3.466770670908011*^9}, {3.466787831367929*^9, 
   3.466787832687644*^9}, {3.466788204325143*^9, 3.466788218260817*^9}, {
   3.46685802076483*^9, 3.466858020906929*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearMech", "[", "]"}], ";", 
  StyleBox[
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}],
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[";",
   FormatType->StandardForm,
   FontSize->12], 
  StyleBox[" ",
   FormatType->StandardForm,
   FontSize->12], 
  RowBox[{"Needs", "[", "\"\<MechanicalSystems`Modeler2D`\>\"", "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spelll\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.4337672108903112`*^9, 3.433767212473906*^9}, {
   3.433772321296359*^9, 3.433772324626424*^9}, {3.4338452005741787`*^9, 
   3.433845244104229*^9}, 3.433850852652503*^9, 3.434119313611906*^9, {
   3.434291867565399*^9, 3.434291868843235*^9}, 3.457690943001174*^9, {
   3.466788273036203*^9, 3.466788280525711*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearAll", "::", "\<\"wrsym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(T\\) is Protected. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"ClearAll::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.434292099763974*^9, 3.434292258189349*^9, 3.434293180260522*^9, 
   3.434293230161066*^9, 3.434293449760765*^9, 3.434293581292253*^9, 
   3.4342937049029903`*^9, 3.434293876653063*^9, 3.434293971925701*^9, 
   3.434294057094702*^9, 3.434294130739457*^9, {3.434294412856823*^9, 
   3.434294448718937*^9}, 3.434294558977326*^9, 3.434294607499115*^9, {
   3.434294681884009*^9, 3.434294717809619*^9}, {3.4342948834967403`*^9, 
   3.4342949021944513`*^9}, 3.434294932854025*^9, 3.434295351040872*^9, {
   3.4342953977109632`*^9, 3.4342954119918947`*^9}, {3.434300115056324*^9, 
   3.434300144098928*^9}, 3.434300375330656*^9, 3.434300496321999*^9, {
   3.434300530150381*^9, 3.434300541717102*^9}, {3.434300914224938*^9, 
   3.434300937554062*^9}, 3.434301708708658*^9, 3.4353446075485983`*^9, {
   3.4353446523120213`*^9, 3.4353446737133837`*^9}, 3.435344704797965*^9, 
   3.435346202959948*^9, 3.4353462911496143`*^9, 3.4353463321031513`*^9, 
   3.435350341889319*^9, 3.4353505374019003`*^9, 3.435422262808413*^9, 
   3.435422478207158*^9, 3.4354225966852903`*^9, 3.435422789660244*^9, 
   3.4354235819962463`*^9, 3.435423723315166*^9, 3.435424026618021*^9, 
   3.435424164213517*^9, 3.4355226513599663`*^9, {3.45769091923886*^9, 
   3.457690961137004*^9}, 3.457692837245215*^9, 3.457692905117363*^9, {
   3.45771059582425*^9, 3.457710620058701*^9}, {3.466770528847291*^9, 
   3.4667705602812023`*^9}, {3.466788283866576*^9, 3.4667882895037537`*^9}, 
   3.46679342749647*^9, 3.466852058939104*^9, 3.466852723671411*^9, 
   3.4669500890982723`*^9, 3.466950786634124*^9, 3.466950973422065*^9, 
   3.466951245490233*^9, 3.4669517218990107`*^9, 3.466952279243307*^9, 
   3.4669528191898317`*^9, 3.467396124462699*^9, 3.4673961600292377`*^9, 
   3.467396258854598*^9, 3.467399136168683*^9, 3.467399372845319*^9, {
   3.467400219312449*^9, 3.467400222102971*^9}, 3.4674019609775457`*^9, 
   3.467402263528982*^9, 3.467403306340331*^9, 3.467458601887946*^9, 
   3.4674588514701433`*^9, 3.467460879037442*^9, {3.467460933195075*^9, 
   3.4674609489951773`*^9}, 3.467461014779756*^9, 3.467461157597706*^9, {
   3.467461243769641*^9, 3.4674612911579857`*^9}, 3.467461467620862*^9, 
   3.467462287185293*^9, 3.4674623309231863`*^9, 3.467462393587419*^9, 
   3.467464341607729*^9, 3.467466964511773*^9, 3.467483483405147*^9, 
   3.467483518982574*^9, 3.467577761644402*^9, 3.46757821882593*^9, 
   3.467578341056774*^9, 3.467578629155031*^9, {3.467578895837068*^9, 
   3.467578920386207*^9}, 3.4675790354336863`*^9, {3.467579265286461*^9, 
   3.467579318485227*^9}, 3.467579353062954*^9, 3.467580670556787*^9, 
   3.467581503895832*^9, 3.467581542400894*^9, 3.4675827416038647`*^9, 
   3.467583051594487*^9, 3.467583086578677*^9, 3.467583474521598*^9, 
   3.46758408073006*^9, 3.4675841453503532`*^9, 3.467584233551792*^9, 
   3.46758431862731*^9, 3.467584472094709*^9, 3.467584620465995*^9, 
   3.467631182240691*^9, 3.467631236108857*^9, 3.46763129564716*^9, 
   3.4676318105457687`*^9, 3.46763195795621*^9, 3.4676320694819736`*^9, 
   3.4676321232905807`*^9, 3.467632156714157*^9, {3.4676321986655693`*^9, 
   3.4676322280869303`*^9}, 3.467632364126687*^9, {3.467632424500801*^9, 
   3.467632473074788*^9}, 3.467632527211997*^9, 3.4676525241515427`*^9, 
   3.468589969754756*^9, 3.468590116105171*^9, 3.468593534356092*^9, 
   3.468593948999905*^9, 3.468594447396134*^9, {3.468594510398543*^9, 
   3.468594535185433*^9}, 3.468594600720318*^9, 3.468594665020973*^9, 
   3.468594718113571*^9, 3.468673729007526*^9, 3.468673781952909*^9, 
   3.468673832286858*^9, 3.468673940320219*^9, {3.468674969872644*^9, 
   3.468675010539816*^9}, 3.4686752401465483`*^9, 3.4686753103844013`*^9, 
   3.468678410652238*^9, 3.4686785334952106`*^9, 3.468678780644415*^9, 
   3.469193204677691*^9, 3.4691932456548347`*^9, 3.46919340663568*^9, 
   3.46919371641402*^9, 3.469193758023278*^9, 3.469193818176318*^9, 
   3.469193990619084*^9, 3.469479979924397*^9, 3.469480031785431*^9, 
   3.46948016012893*^9, 3.4694808340538*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Linakage", " ", "coordinates"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"L1In", "=", 
     RowBox[{"4.5", " ", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L2In", "=", 
     RowBox[{".75", "*", "3.0", " ", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L3In", "=", 
     RowBox[{".75", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L4In", "=", 
     RowBox[{"3.8", " ", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L5In", "=", 
     RowBox[{"2", "*", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.434131952812974*^9, 3.4341319539598846`*^9}, {
   3.43413198954797*^9, 3.43413202974548*^9}, {3.4342297466352386`*^9, 
   3.434229748346599*^9}, 3.4342299385116568`*^9, {3.43422999356122*^9, 
   3.434229997815728*^9}, {3.434230838908679*^9, 3.434230839540224*^9}, {
   3.434277961091634*^9, 3.4342779849160433`*^9}, {3.434278602189005*^9, 
   3.434278609877079*^9}, {3.434278644849573*^9, 3.4342786470550623`*^9}, {
   3.4342807676477013`*^9, 3.4342807690228157`*^9}, {3.4353436875027027`*^9, 
   3.435343730105359*^9}, {3.4353454519083652`*^9, 3.435345486942325*^9}, {
   3.435345595178643*^9, 3.435345645550807*^9}, {3.4353462806156178`*^9, 
   3.435346281926008*^9}, {3.435348619786561*^9, 3.435348636498808*^9}, {
   3.435350509780883*^9, 3.435350524237422*^9}, {3.466788606361985*^9, 
   3.466788631466886*^9}, {3.466788832491296*^9, 3.466788863193398*^9}, {
   3.466791101109333*^9, 3.4667911115178833`*^9}, {3.466791170660293*^9, 
   3.466791183121325*^9}, {3.467130370071877*^9, 3.467130386127098*^9}, {
   3.4673961066984863`*^9, 3.46739611436898*^9}, {3.467578890260561*^9, 
   3.467578917268847*^9}, {3.467579005154593*^9, 3.467579029506394*^9}, {
   3.467584436849052*^9, 3.4675844518571577`*^9}, {3.467632151951853*^9, 
   3.4676321530236473`*^9}, {3.467632194059703*^9, 3.467632194745688*^9}, {
   3.468586429730022*^9, 3.468586434726*^9}, {3.4685866526499357`*^9, 
   3.468586692489429*^9}, {3.468590160974312*^9, 3.468590166820918*^9}, {
   3.468590217463459*^9, 3.4685902292361794`*^9}, {3.468590279524365*^9, 
   3.468590281267706*^9}, {3.4686739723276978`*^9, 3.4686739918610497`*^9}, {
   3.468674031242435*^9, 3.468674046858041*^9}, {3.469193185179084*^9, 
   3.469193195279286*^9}, {3.4691934022666283`*^9, 3.4691934027379627`*^9}, {
   3.469193753966988*^9, 3.469193754452882*^9}, {3.469193808480319*^9, 
   3.46919381444841*^9}, 3.469193986555132*^9, {3.469480022552734*^9, 
   3.46948002401502*^9}, {3.469480829344017*^9, 3.469480829525551*^9}, {
   3.469483378915188*^9, 3.469483379120509*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Distance", " ", "between", " ", "points", " ", "A"}], "&"}], 
     "F"}], ",", 
    RowBox[{"determined", " ", "by", " ", "propodus", " ", "thickness"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"hAFIn", " ", "=", " ", 
    RowBox[{"0.2", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "3"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.468586700972331*^9, 3.468586703756074*^9}, {
  3.468594385498662*^9, 3.468594387292173*^9}, {3.468673994902513*^9, 
  3.468674015520094*^9}, {3.46948340332206*^9, 3.469483403505456*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Distance", " ", "from", " ", "E", " ", "to", " ", "COM"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"LCOMIn", " ", "=", " ", 
    RowBox[{"5", " ", "*", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "3"}]]}]}], ";"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Initial", " ", "input", " ", "angle", " ", 
    RowBox[{"(", "rad", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"thetaStartIn", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"55", "/", "180"}], ")"}], " ", 
     RowBox[{"N", "[", "\[Pi]", "]"}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.434132099033888*^9, 3.434132114381303*^9}, {
   3.434132186297621*^9, 3.434132213218598*^9}, 3.434132302900926*^9, {
   3.4341323400572243`*^9, 3.4341323627623262`*^9}, {3.434229607005034*^9, 
   3.434229607191564*^9}, 3.434230823973259*^9, 3.434919738274151*^9, 
   3.435343741954628*^9, {3.466956512880962*^9, 3.466956514427375*^9}, {
   3.467130412095838*^9, 3.4671304122877417`*^9}, {3.46739615348456*^9, 
   3.467396154018647*^9}, {3.467577721767685*^9, 3.4675777232203417`*^9}, {
   3.467584219833658*^9, 3.467584228677019*^9}, {3.46763117149975*^9, 
   3.467631172043331*^9}, {3.467631281979087*^9, 3.467631284105261*^9}, {
   3.46763206511285*^9, 3.467632065186788*^9}, {3.467632119449544*^9, 
   3.467632119709449*^9}, {3.468674071348559*^9, 3.468674083043585*^9}, {
   3.4686751477341547`*^9, 3.468675151671584*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Dactyl", " ", "mass", " ", 
    RowBox[{"(", "kg", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dMassIn", " ", "=", " ", 
    RowBox[{"4.53", " ", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "4"}]]}]}], " ", ";"}]}]], "Input",
 CellChangeTimes->{{3.435348563500267*^9, 3.435348643073678*^9}, {
   3.435349863468604*^9, 3.435349869186496*^9}, 3.4353505272538023`*^9, {
   3.46678850975624*^9, 3.466788509997757*^9}, {3.467130390159021*^9, 
   3.467130390351074*^9}, {3.468673826309875*^9, 3.468673827293536*^9}, {
   3.4686740989544983`*^9, 3.4686741377175093`*^9}, {3.4686751625805807`*^9, 
   3.468675164276259*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Dactyl", " ", "I", " ", 
    RowBox[{"(", 
     RowBox[{"kg", " ", 
      RowBox[{"m", "^", "2"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"dIIn", "=", " ", 
    RowBox[{"8.16", " ", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "8"}]]}]}], " ", ";"}]}]], "Input",
 CellChangeTimes->{{3.468674148672564*^9, 3.4686741633194447`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Water", " ", "I", " ", 
    RowBox[{"(", 
     RowBox[{"kg", " ", 
      RowBox[{"m", "^", "2"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"waterIIn", " ", "=", " ", 
    RowBox[{"1", "*", 
     RowBox[{"10", "^", 
      RowBox[{"-", "8"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.4686742046361647`*^9, 3.468674205714077*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "3", "rd", " ", "moment", " ", "of", " ", "area", " ", "of", " ", 
    "dactyl"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dAIn", "=", 
    RowBox[{"1.5", " ", "*", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "11"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.468674301823062*^9, 3.468674326575848*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Drag", " ", "coefficient", " ", "of", " ", "elliptical", " ", "dactyl", 
    " ", "element"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CdIn", " ", "=", " ", 
    RowBox[{"0", "*", "1"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.4686743432308683`*^9, 3.468674356878983*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Torsion", " ", "spring", " ", "at", " ", "mV", " ", "joint", " ", 
    RowBox[{"(", 
     RowBox[{"Nm", "/", "rad"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"kSpringIn", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"60", "*", 
       SuperscriptBox["10", "3"]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3.18", " ", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "3"}]]}], ")"}], "2"]}]}], ";"}], "   "}]], "Input",
 CellChangeTimes->{{3.435421522909107*^9, 3.435421681632819*^9}, {
   3.435421758548747*^9, 3.435421793158945*^9}, {3.435422909563066*^9, 
   3.435422910489184*^9}, {3.4354237074614563`*^9, 3.435423708643484*^9}, 
   3.43542402289395*^9, {3.457709051983925*^9, 3.457709052382986*^9}, {
   3.457709117115046*^9, 3.457709178213849*^9}, {3.457710963647984*^9, 
   3.457710989087376*^9}, {3.4577135575862713`*^9, 3.457713568936726*^9}, {
   3.46678866595774*^9, 3.466788673790572*^9}, {3.4667934847400103`*^9, 
   3.466793485978364*^9}, {3.466948633358838*^9, 3.4669486781095123`*^9}, {
   3.466948716511673*^9, 3.466948718263906*^9}, {3.466948790943235*^9, 
   3.4669488194768553`*^9}, {3.466949090885058*^9, 3.466949139925864*^9}, {
   3.466949577733061*^9, 3.4669496132162867`*^9}, {3.467130397063768*^9, 
   3.4671303972794657`*^9}, {3.467462277723576*^9, 3.467462277897575*^9}, {
   3.467462324798222*^9, 3.4674623258280993`*^9}, {3.468674233157434*^9, 
   3.468674247404613*^9}, {3.468675208631422*^9, 3.468675208990657*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Resting", " ", "position", " ", "for", " ", "torsion", " ", "spring"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"thetaRestIn", " ", "=", "  ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"85", "/", "180"}], ")"}], " ", 
     RowBox[{"N", "[", "\[Pi]", "]"}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.466949145141657*^9, 3.4669491455500097`*^9}, {
  3.4669493742501907`*^9, 3.4669493755481462`*^9}, {3.4669496328174458`*^9, 
  3.466949633848442*^9}, {3.46713040157541*^9, 3.467130401767189*^9}, {
  3.467399089118825*^9, 3.467399131119433*^9}, {3.467577738985156*^9, 
  3.467577741013298*^9}, {3.467584216818562*^9, 3.4675842173325377`*^9}, {
  3.46763116302157*^9, 3.4676311636108*^9}, {3.467631288225885*^9, 
  3.467631290913639*^9}, {3.4676323531769648`*^9, 3.467632356570039*^9}, {
  3.467632420438284*^9, 3.467632421141477*^9}, {3.467632522800304*^9, 
  3.467632523242826*^9}, {3.468674260198893*^9, 3.468674264428842*^9}, {
  3.4686752177594767`*^9, 3.468675218142934*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Density", " ", "of", " ", "water", " ", 
    RowBox[{"(", 
     RowBox[{"kg", "/", 
      RowBox[{"m", "^", "3"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"rhoIn", "=", "998"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.4686743713237143`*^9, 3.4686743793777103`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Duration", " ", "of", " ", "simulation", " ", 
    RowBox[{"(", "s", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"simDurationIn", " ", "=", " ", 
    RowBox[{"4", "*", 
     RowBox[{"10", "^", 
      RowBox[{"-", "3"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{
  3.434278736905219*^9, {3.4342808353390703`*^9, 3.434280835730028*^9}, {
   3.434289475627427*^9, 3.43428947591481*^9}, 3.4667935235240583`*^9, {
   3.4669518092090197`*^9, 3.466951811730987*^9}, {3.467130406575465*^9, 
   3.4671304067993517`*^9}, 3.467402258950944*^9, {3.467458847776284*^9, 
   3.4674588482823973`*^9}, 3.4674622822020283`*^9, {3.46763246881883*^9, 
   3.467632470000023*^9}, {3.4686737724945927`*^9, 3.468673773690694*^9}, {
   3.468674390623344*^9, 3.4686743950998077`*^9}, 3.468678406891727*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Time", " ", "values", " ", "to", " ", "evaluate", " ", "results"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tEvalIn", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"N", "[", "i", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0", ",", "simDurationIn", ",", 
        RowBox[{"simDurationIn", "/", "1000"}]}], "}"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.4686744938970957`*^9, 3.4686745012327137`*^9}, {
  3.468674867340357*^9, 3.468675005436164*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Precision", " ", "of", " ", "simulation"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mxErrIn", " ", "=", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "5"}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.46748345560592*^9, 3.467483461807788*^9}, {
  3.467579445014997*^9, 3.4675794467636137`*^9}, {3.468674466720475*^9, 
  3.468674470959567*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Designate", " ", "current", " ", "path"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
   "currPath", "=", "\"\</Volumes/Docs/Projects/Patek_project/sims\>\""}], 
   ";"}]}]], "Input",
 CellChangeTimes->{
  3.468678527203834*^9, {3.468679767114295*^9, 3.4686797759099903`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Phenomeological model ", "Section",
 CellChangeTimes->{{3.4337662900698967`*^9, 3.433766302665958*^9}, {
   3.4338425177459593`*^9, 3.4338425285039577`*^9}, {3.43384795838216*^9, 
   3.433847961523137*^9}, {3.434275188274794*^9, 3.434275191185376*^9}, 
   3.4342773097763147`*^9, {3.434289853318564*^9, 3.434289856083252*^9}, {
   3.4694519119965553`*^9, 3.4694519177614813`*^9}}],

Cell[CellGroupData[{

Cell["Rescale input parameter values", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.43385083875504*^9, 3.433850852652391*^9}, 3.4341193136118183`*^9, {
   3.434289716647056*^9, 3.434289719086936*^9}, {3.4342898896403103`*^9, 
   3.4342898900238256`*^9}, {3.4667883845028353`*^9, 3.46678839415761*^9}, {
   3.466852557980702*^9, 3.466852559722931*^9}, 3.4670497355918503`*^9}],

Cell["\<\

Scale Factors (Mutliplers of all parameters -- helps with numerical \
instabilities)\
\>", "Text",
 CellChangeTimes->{{3.434278553534718*^9, 3.4342785793708*^9}, {
   3.4342807410458403`*^9, 3.434280755892982*^9}, {3.434289846695445*^9, 
   3.434289847157864*^9}, 3.457691189581398*^9, 3.4667884055742598`*^9, 
   3.467049735592021*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"sL", " ", "=", " ", 
   RowBox[{"1", " ", "/", " ", "L1In"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sM", " ", "=", " ", 
   RowBox[{"1", "/", "dMassIn"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sT", "=", 
   RowBox[{"10", "^", "3"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.434278831626719*^9, 3.434278834360395*^9}, {
   3.434280636655451*^9, 3.434280691266487*^9}, {3.4353456546709423`*^9, 
   3.435345658679894*^9}, {3.435348652731892*^9, 3.435348661850851*^9}, 
   3.4353500119228563`*^9, 3.4353504641944847`*^9, {3.4353505032137747`*^9, 
   3.435350506412731*^9}, {3.4669567739730873`*^9, 3.4669567806655207`*^9}, {
   3.467049697295474*^9, 3.467049699333912*^9}, 3.467049735592348*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Apply", " ", "scale", " ", "factors", " ", "to", " ", "parameters"}], " ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dMass", " ", "=", " ", 
     RowBox[{"dMassIn", " ", "sM"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dI", "=", " ", 
     RowBox[{"dIIn", " ", "sM", " ", 
      SuperscriptBox["sL", "2"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"waterI", "=", 
     RowBox[{"waterIIn", " ", "sM", " ", 
      SuperscriptBox["sL", "2"]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L1", "=", 
     RowBox[{"L1In", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L2", "=", 
     RowBox[{"L2In", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L3", "=", 
     RowBox[{"L3In", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L4", "=", 
     RowBox[{"L4In", "  ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L5", "=", 
     RowBox[{"L5In", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LCOM", "=", " ", 
     RowBox[{"LCOMIn", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"EXLocal", " ", "=", " ", 
      RowBox[{"EXLocalIn", " ", "sL"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"EYLocal", " ", "=", " ", 
      RowBox[{"EYLocalIn", " ", "sL"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"FXLocal", " ", "=", " ", 
      RowBox[{"FXLocalIn", " ", "sL"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"FYLocal", " ", "=", " ", 
      RowBox[{"FYLocalIn", " ", "sL"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hAF", " ", "=", " ", 
     RowBox[{"hAFIn", " ", "sL"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"thetaStart", "    ", "=", " ", "thetaStartIn"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kSpring", " ", "=", " ", 
     RowBox[{"kSpringIn", " ", 
      RowBox[{"(", 
       RowBox[{"sM", " ", 
        RowBox[{
         SuperscriptBox["sL", "2"], "/", 
         SuperscriptBox["sT", "2"]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"thetaRest", "=", " ", "thetaRestIn"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dA", " ", "=", " ", 
     RowBox[{"dAIn", " ", "*", " ", 
      RowBox[{"sL", "^", "5"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rho", " ", "=", " ", 
     RowBox[{"rhoIn", " ", "*", " ", 
      RowBox[{"sM", " ", "/", " ", 
       RowBox[{"sL", "^", "3"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Cd", " ", "=", " ", "CdIn"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"simDuration", " ", "=", " ", 
     RowBox[{"simDurationIn", " ", "*", " ", "sT"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tEval", " ", "=", " ", 
     RowBox[{"tEvalIn", "*", "sT"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mxErr", " ", "=", " ", "mxErrIn"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.4670495583114843`*^9, 3.467049609075879*^9}, 
   3.467049735594356*^9, {3.4670498579090014`*^9, 3.467049865634387*^9}, {
   3.4670499165895853`*^9, 3.4670499195636177`*^9}, {3.467050086166402*^9, 
   3.467050117493638*^9}, 3.4670507146310577`*^9, {3.467130442667438*^9, 
   3.467130445851193*^9}, {3.4673933536736183`*^9, 3.467393360529723*^9}, {
   3.467399143939653*^9, 3.467399157786333*^9}, {3.467481665208529*^9, 
   3.4674816834043303`*^9}, {3.4674834184894657`*^9, 
   3.4674834267619677`*^9}, {3.468586509164469*^9, 3.468586540172923*^9}, {
   3.4685866411148157`*^9, 3.4685866487708807`*^9}, {3.468590237812393*^9, 
   3.468590275757505*^9}, {3.468594396064682*^9, 3.468594403354549*^9}, {
   3.468594530913171*^9, 3.4685945311598*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "dMassIn", ",", " ", "dIIn", ",", "L1In", ",", "L2In", ",", "L3In", ",", 
   "L4In", ",", "L5In", ",", "kSpringIn", ",", "TmaxIn", ",", "hAFIn", ",", 
   "thetaIn", ",", "simDurationIn", ",", "tEvalIn", ",", "simDurationIn", ",",
    "tEvalIn", ",", "dAIn", ",", "rhoIn", ",", "CdIn", ",", "waterIIn", ",", 
   "mxErrIn", ",", "LCOMIn"}], "]"}]], "Input",
 CellChangeTimes->{{3.467049121182454*^9, 3.467049131783877*^9}, {
   3.467049973253627*^9, 3.467050068750349*^9}, {3.467481659360477*^9, 
   3.4674816610682373`*^9}, {3.467483430609823*^9, 3.467483433076861*^9}, {
   3.4685865623424673`*^9, 3.468586565877699*^9}, {3.46858671298949*^9, 
   3.4685867144294357`*^9}, {3.4685902518345633`*^9, 3.4685902522023697`*^9}, 
   3.468590286595933*^9, 3.468594415449452*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculated parameter values, define model inputs", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.43385083875504*^9, 3.433850852652391*^9}, 3.4341193136118183`*^9, {
   3.434289716647056*^9, 3.434289719086936*^9}, {3.4342898896403103`*^9, 
   3.4342898900238256`*^9}, {3.4667883845028353`*^9, 3.46678839415761*^9}, {
   3.4667936197548323`*^9, 3.4667936216722717`*^9}, {3.466852649426639*^9, 
   3.4668526558238287`*^9}}],

Cell["\<\


Angle, \[Psi], btwn L1 & L4:\
\>", "Text",
 CellChangeTimes->{{3.434198202631575*^9, 3.434198237802174*^9}, 
   3.434278669799803*^9, 3.457691362917074*^9, {3.466788478343733*^9, 
   3.466788480857099*^9}, {3.466957297470271*^9, 3.466957324624214*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Distance", " ", "btwn", " ", "B"}], " ", "&"}], " ", "D"}], " ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"hBD", "=", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["L1", "2"], "+", 
       SuperscriptBox["L2", "2"], "-", 
       RowBox[{"2", " ", "L1", " ", "L2", " ", 
        RowBox[{"Cos", "[", "thetaStart", "]"}]}]}]]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"This", " ", "angle", " ", "btwn", " ", "1"}], " ", "&"}], " ", 
     "4"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"si", "=", 
     RowBox[{
      RowBox[{"ArcCos", "[", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hBD", "2"], "+", 
         SuperscriptBox["L1", "2"], "-", 
         SuperscriptBox["L2", "2"]}], 
        RowBox[{"2", " ", "hBD", " ", "L1"}]], "]"}], "+", 
      RowBox[{"ArcCos", "[", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hBD", "2"], "+", 
         SuperscriptBox["L4", "2"], "-", 
         SuperscriptBox["L3", "2"]}], 
        RowBox[{"2", " ", "hBD", " ", "L4"}]], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Distance", " ", "btwn", " ", "B"}], " ", "&"}], " ", 
     RowBox[{"F", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hBF", "=", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["hAF", "2"], "+", 
       SuperscriptBox["L2", "2"], "+", 
       RowBox[{"2", " ", "hAF", " ", "L2", " ", 
        RowBox[{"Cos", "[", "thetaStart", "]"}]}]}]]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Angle", " ", "btwn", " ", "5", " ", "and", " ", "x"}], "-", 
     "axis"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gamma", "=", 
     RowBox[{"Pi", "-", 
      RowBox[{"ArcCot", "[", 
       RowBox[{"L5", "/", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"hBF", "^", "2"}], "-", 
           RowBox[{"L5", "^", "2"}]}], ")"}], "^", "0.5"}]}], "]"}], "-", 
      RowBox[{"ArcTan", "[", 
       RowBox[{
        RowBox[{"Cot", "[", "thetaStart", "]"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"hAF", " ", 
           RowBox[{"Csc", "[", "thetaStart", "]"}]}], ")"}], "/", "L2"}]}], 
       "]"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.43420369480468*^9, 3.434203720229204*^9}, {
   3.434205295144374*^9, 3.4342053038649054`*^9}, {3.434222063540146*^9, 
   3.434222063915731*^9}, 3.434222165625268*^9, {3.434222225671216*^9, 
   3.4342222375664787`*^9}, {3.4342297078595753`*^9, 3.434229736236053*^9}, {
   3.434275236341853*^9, 3.4342752973518972`*^9}, {3.434300412137216*^9, 
   3.434300447825417*^9}, {3.434300526783824*^9, 3.4343005391283712`*^9}, {
   3.466957159864493*^9, 3.466957160599237*^9}, {3.466957265309654*^9, 
   3.466957266638319*^9}, {3.466957339018674*^9, 3.466957371794042*^9}, {
   3.466957410268568*^9, 3.4669574108085823`*^9}, {3.4675783910520573`*^9, 
   3.467578435507431*^9}, {3.467578707379209*^9, 3.467578719578443*^9}, {
   3.467579115184594*^9, 3.467579152342656*^9}, {3.467579189605255*^9, 
   3.4675791933236103`*^9}, {3.4675792462798653`*^9, 3.467579260527438*^9}, {
   3.468589296766938*^9, 3.468589297283915*^9}, {3.468589491920698*^9, 
   3.468589502246148*^9}, {3.468589532325214*^9, 3.4685896497091637`*^9}, {
   3.4685896907975388`*^9, 3.4685898980494967`*^9}, {3.4685938384776506`*^9, 
   3.468593842811696*^9}, 3.468594332974505*^9, {3.468594431704507*^9, 
   3.468594436925262*^9}, {3.468594702678475*^9, 3.468594703195285*^9}}],

Cell["\<\


Check that the geometry is possible (both should be 'True')\
\>", "Text",
 CellChangeTimes->{{3.435345319126864*^9, 3.435345337355918*^9}, {
   3.4354218154711027`*^9, 3.435421833967695*^9}, 3.457691365613482*^9, {
   3.467631702552298*^9, 3.4676317100713663`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L4", "  ", "<", " ", 
  RowBox[{"(", " ", 
   RowBox[{"L3", " ", "+", " ", "hBD"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.434918943225819*^9, 3.434918957311892*^9}, {
  3.4669573755071917`*^9, 3.466957376321549*^9}, {3.4673955830212297`*^9, 
  3.4673955835165787`*^9}, {3.467578734342785*^9, 3.4675787346978397`*^9}, {
  3.467579300679248*^9, 3.467579301095957*^9}, {3.468589301204135*^9, 
  3.468589301412244*^9}, {3.468594476904706*^9, 3.468594485003223*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.43436499882364*^9, 3.434365006910418*^9}, 
   3.4343656864389677`*^9, {3.434917731712736*^9, 3.43491774827241*^9}, 
   3.434919020182146*^9, 3.435344607873657*^9, {3.435344652498269*^9, 
   3.435344673898366*^9}, 3.4353447049778643`*^9, 3.4353462030958853`*^9, 
   3.435346291321949*^9, 3.435346332222268*^9, 3.435350342072789*^9, 
   3.4353505377176933`*^9, 3.435422263158986*^9, 3.435422478368538*^9, 
   3.435422596897347*^9, 3.435422789921236*^9, 3.435423582216003*^9, 
   3.435423723551297*^9, 3.435424026836322*^9, 3.4354241643991117`*^9, {
   3.457690919538722*^9, 3.4576909613918133`*^9}, 3.457692837565652*^9, 
   3.457692905371648*^9, {3.457710596042221*^9, 3.45771062047523*^9}, 
   3.4667705605677767`*^9, 3.46679344159968*^9, 3.466852029042953*^9, 
   3.4668520592886047`*^9, 3.466852541236817*^9, {3.4668526963493147`*^9, 
   3.4668527240226107`*^9}, 3.4668528720973063`*^9, {3.4668536534963293`*^9, 
   3.466853666807694*^9}, 3.46685488998621*^9, 3.4668564627849693`*^9, 
   3.4669501368599157`*^9, 3.466950792296424*^9, 3.466950976491826*^9, 
   3.466951252417783*^9, 3.46695172755998*^9, 3.4669522823891077`*^9, 
   3.466952824533963*^9, {3.466957212990509*^9, 3.466957245592959*^9}, {
   3.466957310457139*^9, 3.466957332128724*^9}, {3.466957404528062*^9, 
   3.4669574464941874`*^9}, 3.4669589860043697`*^9, 3.466960317809799*^9, 
   3.466960748681705*^9, 3.466961326443616*^9, 3.4669622804089413`*^9, 
   3.466964689797086*^9, 3.467033542891551*^9, 3.467034058433797*^9, 
   3.467049141486125*^9, 3.46704982357682*^9, {3.467049875394553*^9, 
   3.467049884336915*^9}, 3.467050282700157*^9, 3.4670506132917852`*^9, 
   3.467051566076068*^9, 3.467131109782077*^9, 3.467131156354682*^9, 
   3.467131612165155*^9, 3.467391032244094*^9, 3.46739106324406*^9, {
   3.467391856375162*^9, 3.467391865164885*^9}, 3.467392041111411*^9, {
   3.467393324240198*^9, 3.46739333334988*^9}, 3.4673933689943733`*^9, 
   3.467393888003025*^9, 3.467395361673567*^9, 3.467395569784154*^9, 
   3.467395697090407*^9, {3.467395763117218*^9, 3.4673958191409693`*^9}, 
   3.467395991917307*^9, 3.467396042266535*^9, 3.467396132900816*^9, 
   3.467396171732626*^9, 3.4673963302127647`*^9, 3.4673967088077106`*^9, 
   3.4673974156762657`*^9, 3.467397739114256*^9, 3.4673991853944473`*^9, 
   3.467399375433886*^9, {3.4674002199525127`*^9, 3.46740022446728*^9}, 
   3.467401963823043*^9, 3.467402268548736*^9, 3.4674033100446463`*^9, 
   3.467458605932939*^9, 3.467458854539589*^9, 3.4674608793673573`*^9, {
   3.4674609335490294`*^9, 3.467460949308547*^9}, 3.4674610151161213`*^9, 
   3.4674611579347277`*^9, {3.467461244086053*^9, 3.467461291491602*^9}, 
   3.46746146794193*^9, 3.467462287637662*^9, 3.467462331358157*^9, 
   3.467462394058701*^9, 3.4674643420878773`*^9, 3.467467136415283*^9, 
   3.467478604832447*^9, 3.467479590065427*^9, 3.467479898685396*^9, 
   3.467480319234045*^9, 3.4674804486081343`*^9, 3.467480795728363*^9, 
   3.4674808278907146`*^9, 3.467482812149384*^9, 3.4674830562820663`*^9, 
   3.4674834869257517`*^9, 3.467483522525936*^9, 3.467483569594591*^9, 
   3.467483688642465*^9, 3.4675782319113827`*^9, {3.4675787471241083`*^9, 
   3.467578763961439*^9}, {3.467578904034245*^9, 3.4675789296454372`*^9}, 
   3.467579054625388*^9, 3.467579204592857*^9, {3.46757926763457*^9, 
   3.467579321042944*^9}, 3.467579360685351*^9, 3.467580672528865*^9, 
   3.4675815072085114`*^9, 3.467581545485406*^9, 3.4675827440058527`*^9, 
   3.467583054128806*^9, 3.4675830895435762`*^9, 3.467583477918787*^9, 
   3.4675840827647963`*^9, 3.467584147742991*^9, 3.467584250745138*^9, 
   3.467584321078854*^9, 3.467584475548338*^9, {3.46758461061143*^9, 
   3.467584638815509*^9}, {3.46758467641334*^9, 3.46758469883134*^9}, 
   3.4675847297070837`*^9, 3.4675848072040854`*^9, 3.46763120457373*^9, 
   3.467631243209166*^9, 3.467631307082343*^9, 3.467631979741646*^9, 
   3.467632080022991*^9, 3.467632131278769*^9, 3.467632166395097*^9, {
   3.467632207179284*^9, 3.467632231319063*^9}, 3.4676323667123957`*^9, {
   3.467632432399473*^9, 3.467632475191167*^9}, 3.46763253166722*^9, 
   3.4676525275569468`*^9, 3.468589980280514*^9, 3.468590011237417*^9, 
   3.4685901205626802`*^9, 3.4685935401959667`*^9, 3.468593953520694*^9, 
   3.468594450482069*^9, {3.468594495018952*^9, 3.468594538518074*^9}, 
   3.468594638880396*^9, 3.468594669680963*^9, 3.468594718551628*^9, 
   3.468673736917605*^9, 3.4686738002691107`*^9, 3.4686738355819883`*^9, 
   3.468673954397129*^9, 3.46867531252141*^9, 3.46867841418762*^9, 
   3.468678536205386*^9, {3.468678764698556*^9, 3.468678781296482*^9}, {
   3.46919322619814*^9, 3.469193246245859*^9}, 3.469193410943076*^9, 
   3.469193719014888*^9, 3.469193762284595*^9, 3.469193822700441*^9, 
   3.4691939977792664`*^9, 3.469479980419731*^9, 3.4694800396940193`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L4", "  ", ">", " ", 
  RowBox[{"(", "  ", 
   RowBox[{"hBD", "-", "L3"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.434918943225819*^9, 3.434918957311892*^9}, {
  3.4353437817588797`*^9, 3.435343791732926*^9}, {3.466957380189508*^9, 
  3.466957383091797*^9}, {3.467395589766502*^9, 3.467395591477057*^9}, {
  3.467578739463749*^9, 3.467578739858128*^9}, {3.4675793061464367`*^9, 
  3.467579306296089*^9}, {3.468589311655446*^9, 3.468589311975094*^9}, {
  3.4685944739627333`*^9, 3.468594490419304*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.43436499882364*^9, 3.434365006910418*^9}, 
   3.4343656864389677`*^9, {3.434917731712736*^9, 3.43491774827241*^9}, 
   3.434919020182146*^9, 3.435344607912539*^9, {3.435344652548286*^9, 
   3.435344673932143*^9}, 3.435344705009965*^9, 3.435346203131366*^9, 
   3.435346291355476*^9, 3.435346332255495*^9, 3.4353503421083612`*^9, 
   3.435350537753788*^9, 3.435422263193898*^9, 3.4354224784502907`*^9, 
   3.435422596935905*^9, 3.435422789961115*^9, 3.435423582268111*^9, 
   3.435423723603568*^9, 3.4354240268703957`*^9, 3.435424164435267*^9, {
   3.457690919575389*^9, 3.4576909614117403`*^9}, 3.457692837603113*^9, 
   3.4576929054241343`*^9, {3.45771059610957*^9, 3.457710620538114*^9}, 
   3.466770560621063*^9, 3.466793441676675*^9, 3.466852029101055*^9, 
   3.466852059328837*^9, 3.4668525412910833`*^9, {3.466852696385818*^9, 
   3.466852724062104*^9}, 3.466852872135377*^9, {3.466853653548448*^9, 
   3.4668536668718777`*^9}, 3.4668548900213346`*^9, 3.4668564628242493`*^9, 
   3.466950136896248*^9, 3.466950792354999*^9, 3.466950976567163*^9, 
   3.4669512524688473`*^9, 3.4669517276136007`*^9, 3.4669522824488077`*^9, 
   3.4669528245704527`*^9, {3.466957213048108*^9, 3.4669572456336412`*^9}, {
   3.46695731051976*^9, 3.466957332170837*^9}, {3.466957404625231*^9, 
   3.466957446534871*^9}, 3.466958986039297*^9, 3.4669603178627777`*^9, 
   3.466960748734394*^9, 3.466961326496256*^9, 3.4669622804530067`*^9, 
   3.4669646898491173`*^9, 3.467033542942272*^9, 3.467034058489705*^9, 
   3.467049141525887*^9, 3.467049823604065*^9, {3.467049875488022*^9, 
   3.467049884378408*^9}, 3.467050282728333*^9, 3.467050613331285*^9, 
   3.467051566181061*^9, 3.467131109832858*^9, 3.467131156405013*^9, 
   3.467131612198916*^9, 3.467391032311798*^9, 3.467391063332727*^9, {
   3.467391856427256*^9, 3.46739186520074*^9}, 3.467392041163167*^9, {
   3.467393324294541*^9, 3.467393333384224*^9}, 3.46739336904652*^9, 
   3.467393888060699*^9, 3.467395361715199*^9, 3.467395569819478*^9, 
   3.4673956971280413`*^9, {3.467395763165778*^9, 3.467395819191304*^9}, 
   3.467395991951642*^9, 3.467396042460122*^9, 3.4673961329630013`*^9, 
   3.467396171796015*^9, 3.467396330247623*^9, 3.467396708844417*^9, 
   3.467397415730071*^9, 3.467397739168954*^9, 3.4673991854663553`*^9, 
   3.4673993754698067`*^9, {3.4674002200025673`*^9, 3.467400224506056*^9}, 
   3.46740196388371*^9, 3.467402268598689*^9, 3.467403310111277*^9, 
   3.467458605967896*^9, 3.467458854588785*^9, 3.467460879407036*^9, {
   3.467460933617806*^9, 3.4674609493485727`*^9}, 3.467461015173009*^9, 
   3.46746115798699*^9, {3.467461244125105*^9, 3.467461291548161*^9}, 
   3.467461467994526*^9, 3.467462287689684*^9, 3.467462331408853*^9, 
   3.4674623941284847`*^9, 3.467464342145419*^9, 3.467467136472199*^9, 
   3.467478604884533*^9, 3.467479590116414*^9, 3.4674798987390957`*^9, 
   3.467480319287772*^9, 3.4674804486757593`*^9, 3.467480795782069*^9, 
   3.4674808279416122`*^9, 3.467482812183901*^9, 3.467483056327469*^9, 
   3.467483486958685*^9, 3.467483522555125*^9, 3.467483569643675*^9, 
   3.4674836886956863`*^9, 3.4675782319448338`*^9, {3.467578747186699*^9, 
   3.467578764001397*^9}, {3.467578904070384*^9, 3.467578929688506*^9}, 
   3.467579054658823*^9, 3.467579204649293*^9, {3.4675792676681128`*^9, 
   3.46757932109597*^9}, 3.4675793607288322`*^9, 3.4675806725656137`*^9, 
   3.467581507256507*^9, 3.467581545538447*^9, 3.4675827440566807`*^9, 
   3.46758305415417*^9, 3.467583089571413*^9, 3.4675834779733267`*^9, 
   3.467584082807542*^9, 3.467584147786345*^9, 3.467584250796899*^9, 
   3.4675843211217327`*^9, 3.467584475598208*^9, {3.4675846106621323`*^9, 
   3.467584638867379*^9}, {3.467584676464566*^9, 3.46758469888269*^9}, 
   3.4675847297585287`*^9, 3.4675848072559147`*^9, 3.4676312046495657`*^9, 
   3.467631243272771*^9, 3.46763130712949*^9, 3.467631979816134*^9, 
   3.467632080199888*^9, 3.467632131442144*^9, 3.46763216653067*^9, {
   3.467632207382395*^9, 3.467632231458531*^9}, 3.467632366870163*^9, {
   3.4676324325749903`*^9, 3.467632475393815*^9}, 3.467632531850767*^9, 
   3.467652527736971*^9, 3.4685899803146563`*^9, 3.4685900112729597`*^9, 
   3.468590120642202*^9, 3.4685935402457314`*^9, 3.4685939536205397`*^9, 
   3.4685944505291243`*^9, {3.468594493001998*^9, 3.468594538555558*^9}, 
   3.468594638909881*^9, 3.46859466971457*^9, 3.468594718588338*^9, 
   3.468673737002618*^9, 3.468673800316731*^9, 3.468673835634647*^9, 
   3.4686739544502897`*^9, 3.468675312574876*^9, 3.468678414229805*^9, 
   3.468678536247362*^9, {3.4686787647576303`*^9, 3.4686787813486834`*^9}, {
   3.469193226238183*^9, 3.469193246328601*^9}, 3.469193410994547*^9, 
   3.4691937190570803`*^9, 3.469193762322812*^9, 3.4691938227863903`*^9, 
   3.469193997817919*^9, 3.469479980471925*^9, 3.469480039738036*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hBF", ">", "L5"}]], "Input",
 CellChangeTimes->{{3.469480230127796*^9, 3.4694802360888968`*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.469480236853488*^9, 3.46948084317131*^9}]
}, Open  ]],

Cell["\<\


Points on the appendage\
\>", "Text",
 CellChangeTimes->{{3.434277567195961*^9, 3.4342775736781273`*^9}, {
   3.434277643634021*^9, 3.4342776572824802`*^9}, 3.457691398567134*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AX", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AY", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BX", "=", 
   RowBox[{"L2", " ", 
    RowBox[{"Sin", "[", "thetaStart", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BY", "=", 
   RowBox[{"L2", " ", 
    RowBox[{"Cos", "[", "thetaStart", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CX", "=", 
   RowBox[{"L4", " ", 
    RowBox[{"Sin", "[", "si", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CY", "=", 
   RowBox[{"L1", "-", 
    RowBox[{"L4", " ", 
     RowBox[{"Cos", "[", "si", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DX", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DY", "=", "L1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EX", "=", " ", 
   RowBox[{"BX", "+", 
    RowBox[{"L5", " ", 
     RowBox[{"Cos", "[", "gamma", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EY", "=", 
   RowBox[{"BY", "-", 
    RowBox[{"L5", " ", 
     RowBox[{"Sin", "[", "gamma", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FX", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FY", "=", 
   RowBox[{"-", "hAF"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GX", "=", 
   RowBox[{"EX", "-", 
    RowBox[{"LCOM", " ", 
     RowBox[{"Sin", "[", "gamma", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GY", "=", 
    RowBox[{"EY", "-", 
     RowBox[{"LCOM", " ", 
      RowBox[{"Cos", "[", "gamma", "]"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"EX", " ", "=", 
     RowBox[{"BX", "+", " ", "EXLocal"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"EY", "=", 
     RowBox[{"BY", " ", "-", " ", "EYLocal"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"FX", "=", 
     RowBox[{"BX", "-", " ", "FXLocal"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"FY", "=", 
     RowBox[{"EY", "-", "FYLocal"}]}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.434200824523077*^9, 3.4342009975571938`*^9}, {
   3.434201402404606*^9, 3.4342014417974253`*^9}, {3.434201918089024*^9, 
   3.4342019446382847`*^9}, {3.434202519424562*^9, 3.4342026335834017`*^9}, {
   3.434202784318139*^9, 3.434202784925432*^9}, {3.43420388263247*^9, 
   3.434203909785695*^9}, {3.434204567386544*^9, 3.434204569650251*^9}, {
   3.4342052951444817`*^9, 3.4342053038652077`*^9}, {3.434222485699192*^9, 
   3.434222488801467*^9}, 3.434230804741029*^9, {3.4342773234687233`*^9, 
   3.434277380045871*^9}, {3.434277414903802*^9, 3.434277427320122*^9}, {
   3.434284979133072*^9, 3.434284984403282*^9}, {3.434286983581234*^9, 
   3.4342870451648893`*^9}, {3.434287097314393*^9, 3.4342870988327103`*^9}, {
   3.43428725733326*^9, 3.434287298667852*^9}, {3.434287448317561*^9, 
   3.434287458723971*^9}, {3.434287528729109*^9, 3.434287539671946*^9}, {
   3.434287574107542*^9, 3.434287576842161*^9}, {3.434300459196059*^9, 
   3.434300464627245*^9}, {3.435344462458474*^9, 3.4353445114592943`*^9}, {
   3.435344564632226*^9, 3.435344601552343*^9}, {3.4353446656928377`*^9, 
   3.435344670243067*^9}, {3.435345496184452*^9, 3.435345527208778*^9}, {
   3.435522705956583*^9, 3.43552274478968*^9}, {3.4576927864357843`*^9, 
   3.457692826157711*^9}, {3.466788788089048*^9, 3.466788810246284*^9}, {
   3.466788897451317*^9, 3.466788901811521*^9}, 3.466791080778583*^9, {
   3.466791135610347*^9, 3.466791143681385*^9}, {3.46695716458365*^9, 
   3.4669571651668262`*^9}, {3.466957241757025*^9, 3.466957262397664*^9}, {
   3.466957386730891*^9, 3.466957418468136*^9}, {3.467393210905538*^9, 
   3.46739322232358*^9}, {3.467395551693858*^9, 3.46739555509857*^9}, {
   3.467577842741289*^9, 3.467577848100054*^9}, {3.4675843111955013`*^9, 
   3.4675843141384363`*^9}, {3.46763119150301*^9, 3.467631195549425*^9}, {
   3.468586582101246*^9, 3.4685866343454*^9}, {3.4685868042680273`*^9, 
   3.4685868077791033`*^9}, {3.468589908960705*^9, 3.468589953626775*^9}, {
   3.468589990590526*^9, 3.46859000444522*^9}, {3.468593550268641*^9, 
   3.468593585995266*^9}, {3.4685938808211203`*^9, 3.468593907416623*^9}, {
   3.468594501820549*^9, 3.468594502652132*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"si", ",", "hAF", ",", "hBF"}], "]"}]], "Input",
 CellChangeTimes->{{3.4669571961942873`*^9, 3.466957229217368*^9}, {
  3.4669574417350187`*^9, 3.466957442500519*^9}, {3.468589318455572*^9, 
  3.468589318647374*^9}, {3.46859431978032*^9, 3.4685943214344177`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Check", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"BX", "-", "CX"}], ")"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"BY", "-", "CY"}], ")"}], "^", "2"}]}], "]"}], 
   "\[IndentingNewLine]", "L3"}]}]], "Input",
 CellChangeTimes->{{3.4676524247239513`*^9, 3.467652504238057*^9}}],

Cell[BoxData["0.16666666666666666`"], "Output",
 CellChangeTimes->{{3.4676525088941727`*^9, 3.467652527870455*^9}, 
   3.468589980462379*^9, 3.4685900114201593`*^9, 3.468590120783544*^9, 
   3.468593540432592*^9, 3.468593953691921*^9, 3.468594450615752*^9, {
   3.46859451381684*^9, 3.4685945386060133`*^9}, 3.468594669801766*^9, 
   3.468594718683304*^9, 3.468673737073786*^9, 3.468673800389406*^9, 
   3.468673835699854*^9, 3.4686739545039587`*^9, 3.4686753126280003`*^9, 
   3.46867841435504*^9, 3.4686785363226624`*^9, {3.4686787648161783`*^9, 
   3.468678781461493*^9}, {3.4691932263183823`*^9, 3.4691932464139957`*^9}, 
   3.469193411096572*^9, 3.469193719222851*^9, 3.469193762467094*^9, 
   3.469193822941937*^9, 3.4691939979289637`*^9, 3.469479980536602*^9, 
   3.469480039811718*^9}]
}, Open  ]],

Cell["\<\


Body addresses\
\>", "Text",
 CellChangeTimes->{{3.434131937883367*^9, 3.434131942515545*^9}, 
   3.434132056939098*^9, 3.43427867480791*^9, {3.435421848000547*^9, 
   3.4354218496002913`*^9}, 3.4576913693894453`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ground", " ", "=", " ", "1"}], ";", " ", 
  RowBox[{"mV", " ", "=", " ", "2"}], ";", 
  RowBox[{"carpus", " ", "=", " ", "3"}], ";", 
  RowBox[{"dactyl", " ", "=", " ", "4"}], ";"}]], "Input",
 CellChangeTimes->{{3.433842491840807*^9, 3.4338424965743237`*^9}, {
   3.433842627239996*^9, 3.433842636446225*^9}, {3.4338480786826*^9, 
   3.4338481305381393`*^9}, {3.433849063951211*^9, 3.433849064837405*^9}, {
   3.433849733114781*^9, 3.4338497502253923`*^9}, {3.4338500680102043`*^9, 
   3.433850074834241*^9}, 3.4338507788486567`*^9, 3.433850852652692*^9, {
   3.434101949929105*^9, 3.434101967357286*^9}, 3.434119313612118*^9, 
   3.434131881983409*^9, {3.434278677649804*^9, 3.4342786831128483`*^9}, 
   3.434289465603408*^9}],

Cell["\<\


Display initial geometry\
\>", "Text",
 CellChangeTimes->{{3.4342890013582497`*^9, 3.434289010513914*^9}, {
   3.434289443010428*^9, 3.434289449272645*^9}, 3.457691401487164*^9, {
   3.457692852061466*^9, 3.4576928528849*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"offset", " ", "=", " ", 
   RowBox[{".09", " ", "L1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"AX", ",", "AY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"BX", ",", "BY"}], "}"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"CX", ",", "CY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"DX", ",", "DY"}], "}"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"BX", ",", "BY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"EX", ",", "EY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"CX", ",", "CY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"BX", ",", "BY"}], "}"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"EX", ",", "EY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"FX", ",", "FY"}], "}"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"GX", ",", "GY"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"FX", ",", "FY"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Initial geometry\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{"\"\<A\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AX", "-", "offset"}], ",", 
          RowBox[{"AY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<B\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"BX", "-", "offset"}], ",", 
          RowBox[{"BY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<C\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"CX", "+", "offset"}], ",", 
          RowBox[{"CY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<D\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"DX", "-", "offset"}], ",", 
          RowBox[{"DY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<E\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"EX", "+", "offset"}], ",", 
          RowBox[{"EY", "-", "offset"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<F\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FX", "-", "offset"}], ",", 
          RowBox[{"FY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<G\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"GX", "-", "offset"}], ",", 
          RowBox[{"GY", "+", "offset"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<L1\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Mean", "[", 
            RowBox[{"{", 
             RowBox[{"AX", ",", "DX"}], "}"}], "]"}], "-", "offset"}], ",", 
          RowBox[{"Mean", "[", 
           RowBox[{"{", 
            RowBox[{"AY", ",", "DY"}], "}"}], "]"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<L2\>\"", ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Mean", "[", 
             RowBox[{"{", 
              RowBox[{"AX", ",", "BX"}], "}"}], "]"}], "-", "offset"}], ",", 
           RowBox[{"Mean", "[", 
            RowBox[{"{", 
             RowBox[{"AY", ",", "BY"}], "}"}], "]"}]}], "}"}], "+", 
         "offset"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<L3\>\"", ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Mean", "[", 
             RowBox[{"{", 
              RowBox[{"CX", ",", "BX"}], "}"}], "]"}], "-", "offset"}], ",", 
           RowBox[{"Mean", "[", 
            RowBox[{"{", 
             RowBox[{"CY", ",", "BY"}], "}"}], "]"}]}], "}"}], "+", 
         RowBox[{"offset", "/", "2"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"Text", "[", 
       RowBox[{"\"\<L4\>\"", ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Mean", "[", 
             RowBox[{"{", 
              RowBox[{"DX", ",", "CX"}], "}"}], "]"}], "-", "offset"}], ",", 
           RowBox[{"Mean", "[", 
            RowBox[{"{", 
             RowBox[{"DY", ",", "CY"}], "}"}], "]"}]}], "}"}], "+", 
         "offset"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.434200796065309*^9, 3.434200797593256*^9}, {
   3.434201360079505*^9, 3.434201382768757*^9}, {3.4342014744403973`*^9, 
   3.434201520711919*^9}, {3.434201585757559*^9, 3.434201586058496*^9}, {
   3.434201619110579*^9, 3.434201644401198*^9}, {3.4342016888910522`*^9, 
   3.434201716028594*^9}, {3.434202649174159*^9, 3.434202653836521*^9}, {
   3.4342052951468287`*^9, 3.434205303866748*^9}, {3.434277385085828*^9, 
   3.434277407006825*^9}, {3.43427772904783*^9, 3.4342777964917603`*^9}, {
   3.4342808518842087`*^9, 3.434280872885396*^9}, {3.434281016261243*^9, 
   3.4342810365818167`*^9}, {3.434281117835251*^9, 3.434281135699049*^9}, {
   3.434287051303035*^9, 3.4342870815860357`*^9}, {3.4342873708077717`*^9, 
   3.43428740240132*^9}, 3.43428747554913*^9, {3.434287509224375*^9, 
   3.434287515744697*^9}, {3.434287549482395*^9, 3.4342876020838423`*^9}, {
   3.434287644728332*^9, 3.434287668923428*^9}, {3.434287740460681*^9, 
   3.434287855499194*^9}, {3.434288134426139*^9, 3.4342882463348837`*^9}, {
   3.434288362335698*^9, 3.4342883628434772`*^9}, {3.434288395736211*^9, 
   3.4342883991894283`*^9}, {3.4342885352466927`*^9, 3.434288592848287*^9}, {
   3.4342886344689074`*^9, 3.434288966821568*^9}, 3.434289030368429*^9, 
   3.434289063444079*^9, {3.434289102654718*^9, 3.434289367092504*^9}, {
   3.434289405081286*^9, 3.434289419791609*^9}, {3.435344697908908*^9, 
   3.435344851458047*^9}, {3.435346304584663*^9, 3.435346311839047*^9}, {
   3.46859392752701*^9, 3.468593942436946*^9}, {3.4685939728473377`*^9, 
   3.468593981751395*^9}}],

Cell[BoxData[
 GraphicsBox[{
   GraphicsComplexBox[{{0., 0.}, {0.40957602214449584`, 0.2867882181755231}, {
    0.5567200281724464, 0.3650596642323338}, {0., 1.}, {0.40957602214449584`, 
    0.2867882181755231}, {0.5567200281724464, 0.3650596642323338}, {
    0.40957602214449584`, 0.2867882181755231}, {0., -0.1111111111111111}, {
    0., -0.1111111111111111}}, {{{}, {}, 
      {Hue[0.67, 0.6, 0.6], LineBox[{1, 2}]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{3, 4}]}, 
      {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{6, 7}]}}, {
      {Hue[0.67, 0.6, 0.6], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8.96], 1], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8.96], 2], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8.96], 5], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8.96], 8], InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->8.96], 9]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->8.96], 3], InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->8.96], 4]}, 
      {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->10.88], 6], InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->10.88], 7]}, {}, {}, {}}}], {
    InsetBox["\<\"A\"\>", {-0.09, 0.09}], 
    InsetBox["\<\"B\"\>", {0.3195760221444959, 0.3767882181755231}], 
    InsetBox["\<\"C\"\>", {0.6467200281724463, 0.4550596642323338}], 
    InsetBox["\<\"D\"\>", {-0.09, 1.09}], 
    InsetBox["\<\"E\"\>", {
     Complex[-0.05867900912612331, 0.279885136318124], 
      Complex[-0.3455513976799739, -0.28809860271960464`]}], 
    InsetBox["\<\"F\"\>", {-0.09, -0.02111111111111111}], 
    InsetBox["\<\"G\"\>", {
     Complex[-1.1425783688852849`, -0.2002792015478837], Complex[
      0.7648736544377245, -0.7545738299164779]}], 
    InsetBox["\<\"L1\"\>", {-0.09, 0.5}], 
    InsetBox["\<\"L2\"\>", {0.20478801107224792`, 0.23339410908776154`}], 
    InsetBox["\<\"L3\"\>", {0.4381480251584711, 0.3709239412039284}], 
    InsetBox["\<\"L4\"\>", {0.2783600140862232, 0.7725298321161669}]}},
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  PlotLabel->FormBox["\"Initial geometry\"", TraditionalForm],
  PlotRange->{{-1, 1}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.4353447186927853`*^9, 3.435344852061212*^9}, 
   3.4353462032938137`*^9, {3.435346291470523*^9, 3.435346332381933*^9}, 
   3.43535034223731*^9, 3.435350537919445*^9, 3.435422263541562*^9, 
   3.435422478538992*^9, 3.43542259701721*^9, 3.435422790048156*^9, 
   3.435423582381584*^9, 3.435423723684655*^9, 3.435424027021888*^9, 
   3.435424164528595*^9, {3.457690919953713*^9, 3.4576909614770412`*^9}, 
   3.457692837865082*^9, 3.457692905534186*^9, {3.457710596241297*^9, 
   3.457710620693367*^9}, 3.4667705609607353`*^9, 3.4667934418644943`*^9, 
   3.466852029300254*^9, 3.466852059489524*^9, 3.466852541390448*^9, {
   3.466852696502283*^9, 3.466852724158743*^9}, 3.466852872281104*^9, {
   3.466853653660513*^9, 3.466853666956723*^9}, 3.4668548901194553`*^9, 
   3.466856462952671*^9, 3.466950137027976*^9, 3.466950792487135*^9, 
   3.466950976718173*^9, 3.466951252554541*^9, 3.466951727732671*^9, 
   3.4669522825150223`*^9, 3.466952824665186*^9, {3.46695721318856*^9, 
   3.4669572457946177`*^9}, {3.466957310647594*^9, 3.4669573323077507`*^9}, {
   3.466957404729135*^9, 3.466957446665831*^9}, 3.466958986135522*^9, 
   3.466960317949772*^9, 3.466960748844447*^9, 3.466961326597074*^9, 
   3.466962280674259*^9, 3.466964689959503*^9, 3.46703354306011*^9, 
   3.467034058579933*^9, 3.467049141739312*^9, 3.467049823671776*^9, {
   3.4670498756161213`*^9, 3.46704988448979*^9}, 3.467050282852036*^9, 
   3.4670506134274282`*^9, 3.4670515662845087`*^9, 3.467131109905342*^9, 
   3.467131156488885*^9, 3.467131612284226*^9, 3.467391032442419*^9, 
   3.467391063416911*^9, {3.467391856524972*^9, 3.467391865287963*^9}, 
   3.4673920412926702`*^9, {3.467393324457191*^9, 3.467393333527883*^9}, 
   3.467393369209745*^9, 3.467393888181044*^9, 3.46739536181054*^9, 
   3.467395570003903*^9, 3.467395697274858*^9, {3.4673957632652893`*^9, 
   3.467395819273819*^9}, 3.467395992121607*^9, 3.4673960290013723`*^9, 
   3.467396069981298*^9, 3.4673961331851883`*^9, 3.467396172003312*^9, 
   3.4673963304179296`*^9, 3.46739670892787*^9, 3.467397415824155*^9, 
   3.467397739259794*^9, 3.46739918557841*^9, 3.467399375564184*^9, {
   3.467400220113201*^9, 3.4674002246186132`*^9}, 3.4674019639802094`*^9, 
   3.467402268710245*^9, 3.467403310243269*^9, 3.467458606051834*^9, 
   3.467458854727961*^9, 3.467460879534816*^9, {3.46746093374656*^9, 
   3.467460949476767*^9}, 3.46746101526332*^9, 3.467461158098373*^9, {
   3.467461244253209*^9, 3.467461291633997*^9}, 3.4674614680955973`*^9, 
   3.4674622877751083`*^9, 3.467462331511585*^9, 3.467462394245577*^9, 
   3.46746434223497*^9, 3.467467136603565*^9, 3.46747860500084*^9, 
   3.467479590248279*^9, 3.4674798988115597`*^9, 3.467480319360509*^9, 
   3.467480448778698*^9, 3.46748079589964*^9, 3.467480828025961*^9, 
   3.46748281228459*^9, 3.467483056404635*^9, 3.467483487041806*^9, 
   3.467483522635447*^9, 3.467483569715589*^9, 3.467483688811006*^9, 
   3.467578764407227*^9, {3.467578904241341*^9, 3.4675789297951937`*^9}, 
   3.4675792047849503`*^9, {3.467579267749323*^9, 3.4675793212058067`*^9}, 
   3.467579360848473*^9, 3.467580672664241*^9, 3.467581507355266*^9, 
   3.467581545666584*^9, 3.4675827441991243`*^9, 3.467583054265911*^9, 
   3.467583089680242*^9, 3.46758347807276*^9, 3.467584082908153*^9, 
   3.467584147919705*^9, 3.4675842508902082`*^9, 3.467584321218039*^9, 
   3.467584475703292*^9, {3.4675846107486057`*^9, 3.467584638951211*^9}, {
   3.467584676565976*^9, 3.467584698972169*^9}, 3.467584729864856*^9, 
   3.467584807361137*^9, 3.467631204752315*^9, 3.467631243398849*^9, 
   3.467631307374634*^9, 3.4676319800306873`*^9, 3.4676320804120913`*^9, 
   3.467632131624948*^9, 3.4676321668604307`*^9, {3.467632207519931*^9, 
   3.467632231607566*^9}, 3.46763236698075*^9, {3.4676324327344*^9, 
   3.4676324755201387`*^9}, 3.467632532049817*^9, 3.46765252794066*^9, 
   3.468589980631033*^9, 3.4685900115558767`*^9, 3.468590120830023*^9, 
   3.468593540496929*^9, 3.468593953740953*^9, 3.468594450667883*^9, {
   3.4685945138808517`*^9, 3.468594538658009*^9}, {3.468594657046856*^9, 
   3.46859466987821*^9}, 3.4685947187565928`*^9, 3.46867373713507*^9, 
   3.468673800459746*^9, 3.468673835755032*^9, 3.468673954570609*^9, 
   3.468675312695414*^9, 3.468678414432674*^9, 3.468678536385092*^9, {
   3.468678764914021*^9, 3.468678781528318*^9}, {3.469193226444319*^9, 
   3.469193246487028*^9}, 3.469193411156008*^9, 3.469193719293131*^9, 
   3.469193762542247*^9, 3.4691938230131617`*^9, 3.469193998106929*^9, 
   3.469479980621591*^9, 3.469480039874977*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define Bodies", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, 
   3.434119313612301*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bd", "[", "ground", "]"}], " ", "=", " ", 
   RowBox[{"Body", "[", 
    RowBox[{"ground", ",", "\[IndentingNewLine]", 
     RowBox[{"PointList", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"(*", "P1", "*)"}], 
       RowBox[{"{", 
        RowBox[{"DX", ",", "DY"}], "}"}], "}"}]}], ",", "\[IndentingNewLine]",
      
     RowBox[{"InitialGuess", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "0"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.433849991536397*^9, 3.433850025208375*^9}, {
   3.4338503955399103`*^9, 3.4338504121963587`*^9}, 3.4338506468325977`*^9, 
   3.433850778848741*^9, {3.43385089612752*^9, 3.433850909758131*^9}, {
   3.433869046244482*^9, 3.433869077327327*^9}, {3.4338696567399387`*^9, 
   3.433869669139977*^9}, 3.433869699351898*^9, {3.433869947636655*^9, 
   3.4338699566108437`*^9}, 3.433870094740279*^9, 3.433870178369506*^9, 
   3.4338702147081223`*^9, 3.4338702709801407`*^9, {3.43411090705861*^9, 
   3.43411091034496*^9}, 3.4341193136123943`*^9, {3.4341318869175663`*^9, 
   3.434131889671311*^9}, {3.434132067571561*^9, 3.4341320680353947`*^9}, {
   3.434277513052788*^9, 3.4342775158525248`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bd", "[", "mV", "]"}], " ", "=", " ", 
   RowBox[{"Body", "[", 
    RowBox[{"mV", ",", "\[IndentingNewLine]", 
     RowBox[{"PointList", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"(*", "P1", "*)"}], 
       RowBox[{"{", 
        RowBox[{"BX", ",", "BY"}], "}"}], "}"}]}], ",", "\[IndentingNewLine]",
      
     RowBox[{"Centroid", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"InitialGuess", "\[Rule]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "0"}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.43410199373746*^9, 3.434102009840782*^9}, 
   3.434107064137486*^9, {3.434110913937482*^9, 3.434110916625326*^9}, 
   3.4341193136124687`*^9, {3.434132285977191*^9, 3.4341322979439573`*^9}, {
   3.434132349452445*^9, 3.434132384366509*^9}, {3.434133101073022*^9, 
   3.4341331391667137`*^9}, {3.4341984879951487`*^9, 3.434198507851089*^9}, {
   3.434229650491281*^9, 3.434229652982349*^9}, 3.4342770831531467`*^9, {
   3.434277450634807*^9, 3.4342774561771*^9}, 3.434290579598282*^9, {
   3.4671311355607023`*^9, 3.467131136143302*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bd", "[", "carpus", "]"}], " ", "=", " ", 
   RowBox[{"Body", "[", 
    RowBox[{"carpus", ",", "\n", "   ", 
     RowBox[{"PointList", " ", "->", " ", 
      RowBox[{"{", "\n", "     ", 
       RowBox[{"(*", "P1", "*)"}], 
       RowBox[{
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{"CX", " ", "-", " ", "BX"}], ",", " ", 
          RowBox[{"CY", " ", "-", " ", "BY"}]}], "}"}], ",", "\n", "     ", 
        RowBox[{"(*", "P2", "*)"}], 
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{"EX", " ", "-", " ", "BX"}], ",", " ", 
          RowBox[{"EY", " ", "-", " ", "BY"}]}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Centroid", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", "\n", "         ", 
     RowBox[{"InitialGuess", " ", "->", " ", 
      RowBox[{"{", "\n", "               ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"BX", ",", " ", "BY"}], "}"}], ",", " ", "0"}], "}"}]}]}], 
    "\n", "         ", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.433848181247767*^9, 3.433848192271748*^9}, {
   3.433849157034647*^9, 3.43384926296737*^9}, {3.433849310448718*^9, 
   3.4338493768694077`*^9}, {3.4338497586272793`*^9, 3.43384977405367*^9}, {
   3.433849817157571*^9, 3.4338498198205643`*^9}, {3.433850433861994*^9, 
   3.433850491425117*^9}, {3.433850645624894*^9, 3.4338506699299994`*^9}, {
   3.4338507159092407`*^9, 3.433850727029276*^9}, 3.433850778848817*^9, {
   3.4338509129036303`*^9, 3.4338509194312687`*^9}, {3.433853986370013*^9, 
   3.433853999489726*^9}, {3.433869080790601*^9, 3.433869109584083*^9}, 
   3.433869748475031*^9, 3.433869969892774*^9, 3.433870183233273*^9, {
   3.433870243419642*^9, 3.4338702534830627`*^9}, {3.434110919730123*^9, 
   3.434110925946024*^9}, {3.434118233196018*^9, 3.434118259755865*^9}, 
   3.434119313612541*^9, {3.4341209738835077`*^9, 3.43412102246817*^9}, 
   3.434132404903974*^9, 3.434132540127123*^9, {3.434133164640354*^9, 
   3.434133178904242*^9}, {3.434133278622121*^9, 3.4341332792201347`*^9}, {
   3.434133365793489*^9, 3.434133366760895*^9}, 3.434198521963374*^9, 
   3.434198627084859*^9, {3.434198703844709*^9, 3.434198753494676*^9}, {
   3.434198818731946*^9, 3.43419881911596*^9}, {3.4341988509087687`*^9, 
   3.434198923368413*^9}, {3.434199145166561*^9, 3.434199148334092*^9}, {
   3.434229655776284*^9, 3.4342296699039297`*^9}, {3.4342297710630407`*^9, 
   3.434229782838469*^9}, {3.4342753126989517`*^9, 3.434275318218129*^9}, {
   3.4342774702513847`*^9, 3.4342774925951366`*^9}, {3.434280942884692*^9, 
   3.434280958489031*^9}, {3.4342871316603003`*^9, 3.434287159948021*^9}, 
   3.4342930701789923`*^9, {3.467131141376141*^9, 3.4671311424801283`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bd", "[", "dactyl", "]"}], " ", "=", " ", 
   RowBox[{"Body", "[", 
    RowBox[{"dactyl", ",", "\n", "      ", 
     RowBox[{"PointList", " ", "->", " ", 
      RowBox[{"{", "\n", "          ", 
       RowBox[{"(*", "P1", "*)"}], 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"GX", " ", "-", " ", "EX"}], ",", " ", 
         RowBox[{"GY", " ", "-", " ", "EY"}]}], "}"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Mass", " ", "\[Rule]", "dMass"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Inertia", " ", "\[Rule]", 
      RowBox[{"dI", "+", "waterI"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Centroid", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", "\n", "      ", 
     RowBox[{"InitialGuess", " ", "->", " ", 
      RowBox[{"{", "\n", "         ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"EX", ",", " ", "EY"}], "}"}], ",", " ", "0"}], "}"}]}]}], 
    "\n", "      ", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.433850549057396*^9, 3.4338506427579327`*^9}, {
   3.433850673026732*^9, 3.433850675562498*^9}, {3.433850732717719*^9, 
   3.433850735149578*^9}, 3.433850778848901*^9, {3.4338509225838842`*^9, 
   3.433850923864263*^9}, 3.4341193136126127`*^9, {3.4342871738866987`*^9, 
   3.4342872233189907`*^9}, {3.43428791863654*^9, 3.434287947412428*^9}, 
   3.434293078849828*^9, {3.435350180598428*^9, 3.435350228990313*^9}, {
   3.467131073717865*^9, 3.467131089876848*^9}, {3.467481883476987*^9, 
   3.467481890515567*^9}, {3.468594248787756*^9, 3.468594251848081*^9}, {
   3.469194350311257*^9, 3.469194352861367*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetBodies", "[", 
   RowBox[{
    RowBox[{"bd", "[", "ground", "]"}], ",", 
    RowBox[{"bd", "[", "mV", "]"}], ",", 
    RowBox[{"bd", "[", "carpus", "]"}], ",", 
    RowBox[{"bd", "[", "dactyl", "]"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.433842547905612*^9, 3.433842595332416*^9}, {
   3.433842642071061*^9, 3.433842696841694*^9}, 3.433842792496451*^9, {
   3.433844630128481*^9, 3.433844634334787*^9}, 3.4338450118518972`*^9, {
   3.433845363087001*^9, 3.433845416895947*^9}, {3.433845506423341*^9, 
   3.433845509532784*^9}, {3.433845632276952*^9, 3.4338456356591473`*^9}, 
   3.433845888576976*^9, {3.433846136903257*^9, 3.43384627295678*^9}, {
   3.4338464333510447`*^9, 3.4338464334048634`*^9}, {3.433849070703677*^9, 
   3.43384907141485*^9}, {3.433849143579122*^9, 3.433849144891034*^9}, {
   3.4338505055269623`*^9, 3.4338505400430202`*^9}, 3.43385077884898*^9, 
   3.433868285347106*^9, {3.434102769892654*^9, 3.434102770216075*^9}, {
   3.4341036962427807`*^9, 3.434103700897155*^9}, 3.434119313612681*^9, 
   3.4341200266291924`*^9, {3.434120776943282*^9, 3.434120783255137*^9}, 
   3.434131893042485*^9, 3.434293240926405*^9, {3.43429363917666*^9, 
   3.4342936440862017`*^9}, {3.4342939990827723`*^9, 3.434294002625285*^9}, 
   3.434294663028777*^9, {3.4343016414796886`*^9, 3.4343016455742826`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Define constraints", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, {
   3.433854243044737*^9, 3.4338542438431273`*^9}, {3.433867943093115*^9, 
   3.433867944890934*^9}, 3.4338683672807693`*^9, 3.4341070540572653`*^9, 
   3.43411931361277*^9}],

Cell["\<\

Pin joint between ground and mV:\
\>", "Text",
 CellChangeTimes->{{3.434110977850408*^9, 3.4341110349582357`*^9}, {
   3.434111105625968*^9, 3.434111106641905*^9}, {3.434111177645481*^9, 
   3.434111187205896*^9}, 3.43413189573565*^9, 3.4342747604672327`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "1", "]"}], "=", " ", 
   RowBox[{"Revolute2", "[", 
    RowBox[{"1", ",", 
     RowBox[{"Point", "[", 
      RowBox[{"ground", ",", "0"}], "]"}], ",", 
     RowBox[{"Point", "[", 
      RowBox[{"mV", ",", "0"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.434102271839583*^9, 3.434102285887168*^9}, {
   3.434102639250338*^9, 3.434102639460696*^9}, {3.434103235595167*^9, 
   3.434103255681937*^9}, {3.43410334377748*^9, 3.434103344894705*^9}, 
   3.434107054057372*^9, {3.43411093019396*^9, 3.4341109322177277`*^9}, 
   3.434119313612855*^9, 3.4341318987311172`*^9}],

Cell["\<\

Initially fix position of joint at mV origin (removed later):\
\>", "Text",
 CellChangeTimes->{{3.434110977850408*^9, 3.43411109031286*^9}, {
   3.434111134131466*^9, 3.434111143867688*^9}, 3.434274763203068*^9, {
   3.466958353700539*^9, 3.4669583812216177`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "2", "]"}], " ", "=", " ", 
   RowBox[{"RotationLock1", "[", 
    RowBox[{"2", ",", "  ", "mV", ",", "0"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.434102452155766*^9, 3.43410245833743*^9}, {
   3.434102552814776*^9, 3.434102553644745*^9}, {3.434103124719305*^9, 
   3.4341031300032053`*^9}, {3.4341032389934607`*^9, 
   3.4341032408010406`*^9}, {3.434103346963377*^9, 3.434103347206504*^9}, {
   3.434103397805996*^9, 3.434103404281581*^9}, {3.434107014500226*^9, 
   3.434107017702108*^9}, 3.434107054057458*^9, 3.434109636269231*^9, {
   3.434111064968639*^9, 3.434111073536849*^9}, 3.434119313612928*^9, 
   3.434131901200375*^9, 3.43413242612834*^9, {3.434133220027883*^9, 
   3.4341332215513763`*^9}, 3.434198535096178*^9, {3.434229813519099*^9, 
   3.434229816262074*^9}, 3.4342933730691547`*^9, {3.434294537691333*^9, 
   3.434294552117957*^9}, {3.43429458954615*^9, 3.4342945899203157`*^9}, {
   3.434294688524802*^9, 3.4342946887998343`*^9}, 3.434294876072002*^9, {
   3.43429491305092*^9, 3.434294914673254*^9}, {3.4342953135259447`*^9, 
   3.434295318570984*^9}, 3.434300931414877*^9}],

Cell["\<\

Pin joint between carpus and mV:\
\>", "Text",
 CellChangeTimes->{{3.434111157069862*^9, 3.434111174925054*^9}, 
   3.434111223495852*^9, 3.434274765291134*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "3", "]"}], " ", "=", " ", 
   RowBox[{"Revolute2", "[", 
    RowBox[{"3", ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"carpus", ",", " ", "0"}], "]"}], ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"mV", ",", " ", "1"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.434102271839583*^9, 3.434102285887168*^9}, {
   3.434102639250338*^9, 3.434102639460696*^9}, {3.434103235595167*^9, 
   3.434103255681937*^9}, {3.43410334377748*^9, 3.434103344894705*^9}, {
   3.434103563171945*^9, 3.434103577707061*^9}, 3.434107054057541*^9, {
   3.434108057276628*^9, 3.4341080667409678`*^9}, {3.434109655623506*^9, 
   3.434109657751317*^9}, {3.434110933938043*^9, 3.434110936025942*^9}, 
   3.4341193136130123`*^9}],

Cell["\<\

Fix distance between ground and top of carpus:\
\>", "Text",
 CellChangeTimes->{{3.434111199104885*^9, 3.434111219871657*^9}, 
   3.434131903685639*^9, 3.434274767323358*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "4", "]"}], " ", "=", " ", 
   RowBox[{"RelativeDistance1", "[", 
    RowBox[{"4", ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"carpus", ",", " ", "1"}], "]"}], ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"ground", ",", " ", "1"}], "]"}], ",", " ", "L4"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4341035963814917`*^9, 3.434103609364781*^9}, 
   3.434107054057622*^9, {3.434108069149374*^9, 3.4341080707730637`*^9}, {
   3.434108871821746*^9, 3.434108877743534*^9}, {3.434109659447789*^9, 
   3.434109666559847*^9}, {3.434110937818274*^9, 3.434110940138731*^9}, 
   3.4341182743325033`*^9, 3.434119313613085*^9, 3.4341319058453283`*^9, {
   3.434230078238098*^9, 3.434230081780854*^9}}],

Cell["\<\

Pin btwn carpus and dactyl\
\>", "Text",
 CellChangeTimes->{{3.435350631426141*^9, 3.435350642300913*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "5", "]"}], " ", "=", " ", 
   RowBox[{"Revolute2", "[", 
    RowBox[{"5", ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"dactyl", ",", " ", "0"}], "]"}], ",", " ", 
     RowBox[{"Point", "[", 
      RowBox[{"carpus", ",", " ", "2"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.434289902888791*^9, 3.434289905809545*^9}, {
  3.434289997407831*^9, 3.43429005416967*^9}}],

Cell["\<\

Lock rotation btwn carpus & dactyl\
\>", "Text",
 CellChangeTimes->{{3.435350648673469*^9, 3.435350663211729*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cs", "[", "6", "]"}], " ", "=", " ", 
   RowBox[{"RotationLock1", "[", 
    RowBox[{"6", ",", " ", "carpus", ",", " ", "dactyl", ",", " ", "0"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.434290176099633*^9, 3.434290181095871*^9}, {
  3.434290212145611*^9, 3.434290250157642*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetConstraints", "[", 
   RowBox[{
    RowBox[{"cs", "[", "1", "]"}], ",", " ", 
    RowBox[{"cs", "[", "2", "]"}], ",", " ", 
    RowBox[{"cs", "[", "3", "]"}], ",", " ", 
    RowBox[{"cs", "[", "4", "]"}], ",", 
    RowBox[{"cs", "[", "5", "]"}], ",", 
    RowBox[{"cs", "[", "6", "]"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.434293168474286*^9, 3.4342931689248247`*^9}, {
  3.4342932203524723`*^9, 3.434293220734272*^9}, {3.4342938611142473`*^9, 
  3.434293865969636*^9}, {3.4343016600394897`*^9, 3.434301664062827*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Check system after constraints:\>\"", " ", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"CheckSystem", "[", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.433868950866869*^9, 3.433868954398119*^9}, 
   3.4338690126434*^9, 3.434107054057909*^9, 3.4341193136132298`*^9, {
   3.4669612116389427`*^9, 3.4669612195456457`*^9}}],

Cell[BoxData[
 RowBox[{"\<\"Check system after constraints:\"\>", " ", "True"}]], "Print",
 CellChangeTimes->{
  3.466961326937415*^9, 3.4669646901964283`*^9, 3.467033543340342*^9, 
   3.467034058929393*^9, 3.467049143143239*^9, 3.467049824193762*^9, 
   3.4670498847048693`*^9, 3.467050283089923*^9, 3.467050613641962*^9, 
   3.467051566486313*^9, 3.467131110132605*^9, 3.4671311566869373`*^9, 
   3.467131612516117*^9, 3.467391032953855*^9, 3.467391068970909*^9, {
   3.4673918568977118`*^9, 3.4673918654996233`*^9}, 3.467392041544815*^9, {
   3.467393324842054*^9, 3.467393333957337*^9}, 3.467393369457699*^9, 
   3.46739388844285*^9, 3.467395362152961*^9, 3.467396344819631*^9, 
   3.4673967091714907`*^9, 3.467397416062804*^9, 3.4673977526897078`*^9, 
   3.467399185827601*^9, 3.467399376036565*^9, {3.467400220546484*^9, 
   3.467400224920754*^9}, 3.4674019642286987`*^9, 3.46740226899321*^9, 
   3.467403310523593*^9, 3.467458606271307*^9, 3.467458854989511*^9, 
   3.4674608797378387`*^9, {3.467460933949668*^9, 3.467460949695932*^9}, 
   3.467461015513109*^9, 3.467461158319064*^9, {3.467461244506918*^9, 
   3.4674612918619537`*^9}, 3.4674614683249807`*^9, 3.467462288003665*^9, 
   3.4674623317854633`*^9, 3.467462394475539*^9, 3.46746434248512*^9, 
   3.467467136868904*^9, 3.467478605297421*^9, 3.46747959051677*^9, 
   3.4674798990383463`*^9, 3.467480319601328*^9, 3.467480449007847*^9, 
   3.467480796144907*^9, 3.46748082823908*^9, 3.467482812513966*^9, 
   3.4674830566320744`*^9, 3.4674834872756443`*^9, 3.467483522886591*^9, 
   3.467483569943531*^9, 3.467483689005855*^9, {3.467579268190399*^9, 
   3.467579321403831*^9}, 3.467579368786996*^9, 3.4675806728960533`*^9, 
   3.4675815075714617`*^9, 3.4675815458694267`*^9, 3.4675827444083147`*^9, 
   3.4675830544690247`*^9, 3.467583089893124*^9, 3.467583478287043*^9, 
   3.4675840831230927`*^9, 3.467584148142894*^9, 3.467584251138981*^9, 
   3.467584321436109*^9, 3.46758447591469*^9, {3.467584611080843*^9, 
   3.467584639149084*^9}, {3.467584676764279*^9, 3.467584699182891*^9}, 
   3.467584730074623*^9, 3.467584807572773*^9, 3.467632231822523*^9, 
   3.467632367195855*^9, {3.467632432972721*^9, 3.467632475735107*^9}, 
   3.4676325323050013`*^9, 3.467652528136587*^9, 3.468590121077813*^9, 
   3.468593540692194*^9, 3.468593953937252*^9, 3.46859445215368*^9, {
   3.468594514142507*^9, 3.4685945391022253`*^9}, 3.468594670138517*^9, 
   3.4685947189521303`*^9, 3.468673737333231*^9, 3.468673800687145*^9, 
   3.468673835998317*^9, 3.468673954797944*^9, 3.468675312938006*^9, 
   3.468678414658436*^9, 3.468678536605558*^9, {3.4686787657573566`*^9, 
   3.468678781847013*^9}, 3.469193246782843*^9, 3.469193411413886*^9, 
   3.4691937196289988`*^9, 3.4691937628031807`*^9, 3.469193823272897*^9, 
   3.469194030423171*^9, 3.469479980855433*^9, 3.4694800401277103`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Evaluate kinematic model", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, {
   3.433854243044737*^9, 3.4338542438431273`*^9}, {3.433867943093115*^9, 
   3.433867944890934*^9}, 3.4338683672807693`*^9, 3.4341070540572653`*^9, 
   3.43411931361277*^9, {3.434290619929618*^9, 3.43429063468727*^9}, {
   3.434300971379114*^9, 3.434300978722327*^9}}],

Cell["\<\
SetParameters[{
   (*Torsion spring stiffness*)  theta -> \[Theta]
   }];\
\>", "Text",
 CellChangeTimes->{{3.434105806894232*^9, 3.434105853698058*^9}, 
   3.4341070709939747`*^9, {3.434107401323751*^9, 3.434107403906147*^9}, {
   3.434107446148697*^9, 3.4341074556207647`*^9}, 3.434108942802353*^9, {
   3.434109989204094*^9, 3.434109989797432*^9}, 3.4341103077154627`*^9, 
   3.434114940860403*^9, 3.434116549066193*^9, 3.434119313612204*^9, {
   3.4342299412148027`*^9, 3.434230001914638*^9}, 3.4342309356580753`*^9, 
   3.434274419699451*^9, {3.434277588648147*^9, 3.43427763437844*^9}, {
   3.434278719763199*^9, 3.434278720331243*^9}, {3.434280931496715*^9, 
   3.434280931951358*^9}, {3.434295340313075*^9, 3.4342954029723997`*^9}, {
   3.434300093461738*^9, 3.434300136879755*^9}, 3.434300901401939*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"graph", "=", 
    RowBox[{"Graphics", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"(*", "ground", "*)"}], 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Axis", "[", 
             RowBox[{"ground", ",", "0", ",", "1"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "mV", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", ".5", ",", ".5"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"mV", ",", "0", ",", "1"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "carpus", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"carpus", ",", "0", ",", "1"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "dactyl", "*)"}], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"dactyl", ",", "0", ",", "1"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}], ",", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "4"}]], " ", "sL"}]}], "]"}]}], "}"}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "}"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"graph", "/.", 
   RowBox[{"SolveMech", "[", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.433851035046337*^9, 3.433851061655987*^9}, {
   3.433851516335149*^9, 3.433851597315585*^9}, {3.433851659336302*^9, 
   3.433851702498908*^9}, {3.4338517389721537`*^9, 3.433851743666876*^9}, {
   3.433851909847933*^9, 3.43385195935106*^9}, {3.433852097272633*^9, 
   3.433852113662279*^9}, {3.433852208970933*^9, 3.433852289948728*^9}, {
   3.4338523611892757`*^9, 3.433852382005128*^9}, {3.4338525019315434`*^9, 
   3.433852505611454*^9}, {3.433852548519116*^9, 3.433852567118351*^9}, {
   3.433853890206346*^9, 3.433853914108988*^9}, {3.4341037960587893`*^9, 
   3.434103826970894*^9}, {3.434110952909773*^9, 3.434110960037702*^9}, 
   3.434119313614814*^9, {3.434120488069234*^9, 3.4341204914729853`*^9}, {
   3.434120522845957*^9, 3.434120547998445*^9}, {3.4341208510142612`*^9, 
   3.434120853126833*^9}, {3.434131908505118*^9, 3.4341319107243853`*^9}, {
   3.43413333182621*^9, 3.434133374954295*^9}, {3.434133409398223*^9, 
   3.434133412020389*^9}, {3.434278459898829*^9, 3.434278470472405*^9}, {
   3.4342808828956823`*^9, 3.4342809038014708`*^9}, 3.434281151880027*^9, {
   3.434281190257429*^9, 3.434281253436264*^9}, {3.434290673253387*^9, 
   3.43429069570965*^9}, 3.434290727321073*^9, 3.434290761626799*^9, {
   3.434290899499144*^9, 3.4342910020158*^9}, {3.434291044393037*^9, 
   3.434291084026677*^9}, {3.434291539971753*^9, 3.434291576836103*^9}, {
   3.4342916304722557`*^9, 3.434291631053969*^9}, {3.434292077774431*^9, 
   3.43429208212643*^9}, 3.434292169476342*^9, 3.434292248273932*^9, {
   3.434293270222485*^9, 3.434293270820135*^9}, 3.434293462641699*^9, {
   3.4342935236223392`*^9, 3.434293531650716*^9}, {3.434293729390777*^9, 
   3.4342937431987143`*^9}, {3.434293782170142*^9, 3.434293786464313*^9}, {
   3.4342939077611856`*^9, 3.4342939332248096`*^9}, {3.434294387051078*^9, 
   3.434294389761342*^9}, 3.434294672704693*^9, 3.4343000691687117`*^9, {
   3.434301685037215*^9, 3.43430169842871*^9}, {3.435350381699198*^9, 
   3.435350402781188*^9}, {3.435350562676811*^9, 3.435350573198655*^9}, {
   3.435424144031521*^9, 3.43542414760105*^9}, {3.43542420840355*^9, 
   3.435424243435554*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0, 0, 1], 
    PolygonBox[{{-0.02222222222222222, 0.}, {0.02222222222222222, 0.}, {
     0.02222222222222222, 1.}, {-0.02222222222222222, 1.}}]}, 
   {RGBColor[0, 0.5, 0.5], 
    PolygonBox[{{-0.012746143030023246`, 0.01820337876197759}, {
     0.012746143030023246`, -0.01820337876197759}, {0.4223221651745191, 
     0.2685848394135455}, {0.3968298791144726, 0.30499159693750066`}}]}, 
   {RGBColor[1, 0, 0], 
    PolygonBox[{{0.3991398293369211, 0.30640741897924983`}, {
     0.4200122149520706, 0.2671690173717963}, {0.5671562209800212, 
     0.34544046342860707`}, {0.5462838353648716, 0.3846788650360606}}]}, 
   {RGBColor[0, 1, 0], 
    PolygonBox[{{
      Complex[-0.1672875101684773, 0.28921464086206145`], 
       Complex[-0.2736293848751571, -0.2977018894769248]}, {
      Complex[-0.13007050808376933`, 0.27055563177418657`], 
       Complex[-0.23747341048479065`, -0.2784953159622845]}, {
      Complex[-1.0339698678429308`, -0.20960870609182117`], Complex[
       0.6929516416329078, -0.7449705431591578]}, {
      Complex[-1.0711868699276388`, -0.19094969700394623`], Complex[
       0.6567956672425412, -0.7641771166737981]}}]}},
  AspectRatio->Automatic,
  Frame->True,
  GridLines->Automatic,
  PlotRange->{{-1, 1.5}, {-2, 1}}]], "Output",
 CellChangeTimes->{{3.4342944139467583`*^9, 3.434294449877108*^9}, 
   3.434294562853619*^9, {3.4342945949800863`*^9, 3.434294608104693*^9}, {
   3.434294682747376*^9, 3.434294718650597*^9}, {3.4342948867399883`*^9, 
   3.434294933546048*^9}, {3.434295351935216*^9, 3.4342954128359127`*^9}, {
   3.4343001160488243`*^9, 3.434300144889658*^9}, 3.434300376063841*^9, {
   3.4343007423152723`*^9, 3.434300750075494*^9}, {3.4343009148618307`*^9, 
   3.434300938150729*^9}, 3.434301709403857*^9, 3.435344653121496*^9, 
   3.435346203638371*^9, 3.435346332745687*^9, 3.4353503441483*^9, 
   3.435350394851571*^9, {3.4353505543078117`*^9, 3.435350574658946*^9}, 
   3.435422264097958*^9, 3.4354224788620663`*^9, 3.43542259736353*^9, 
   3.435422710356708*^9, 3.4354227903968477`*^9, 3.4354235827210627`*^9, 
   3.4354237240703793`*^9, 3.4354240426791973`*^9, 3.435424164963443*^9, {
   3.43542420919804*^9, 3.4354242438722963`*^9}, 3.457690921762556*^9, 
   3.4576929059857063`*^9, {3.457710596536194*^9, 3.4577106210731363`*^9}, 
   3.466770579944034*^9, 3.466793442184832*^9, {3.466852696851448*^9, 
   3.4668527245099277`*^9}, 3.466852901370204*^9, {3.466853653977618*^9, 
   3.466853667390337*^9}, 3.466854890569228*^9, 3.466856463291478*^9, 
   3.4669507928500347`*^9, 3.466950977151423*^9, 3.466951252847171*^9, 
   3.4669517281628304`*^9, 3.466952282810508*^9, 3.46695282495492*^9, 
   3.466958986394383*^9, 3.466960318212306*^9, 3.466960749222691*^9, 
   3.466961326978733*^9, 3.466964690250512*^9, 3.4670335433920918`*^9, 
   3.467034058969201*^9, 3.46704914357337*^9, 3.4670498242792473`*^9, 
   3.467049884724248*^9, 3.467050283141363*^9, 3.467050613682675*^9, 
   3.4670515665372972`*^9, 3.467131110208498*^9, 3.4671311567390614`*^9, 
   3.467131612566483*^9, 3.467391033007433*^9, 3.4673910741408033`*^9, {
   3.467391856949484*^9, 3.4673918655447083`*^9}, 3.467392041597787*^9, {
   3.467393324894453*^9, 3.4673933342008677`*^9}, 3.4673933694907*^9, 
   3.467393888493659*^9, 3.467395362203973*^9, 3.4673963448622847`*^9, 
   3.467396709211811*^9, 3.467397416113394*^9, 3.467397757709445*^9, 
   3.467399185882618*^9, 3.467399376104549*^9, {3.467400220603525*^9, 
   3.467400224973423*^9}, 3.4674019642810926`*^9, 3.467402269033543*^9, 
   3.467403310563677*^9, 3.467458606320713*^9, 3.467458855043109*^9, 
   3.467460879807889*^9, {3.4674609340171824`*^9, 3.467460949764926*^9}, 
   3.4674610155526943`*^9, 3.4674611583752747`*^9, {3.467461244574312*^9, 
   3.467461291931843*^9}, 3.467461468398459*^9, 3.467462288072735*^9, 
   3.467462331812029*^9, 3.467462394544421*^9, 3.467464342524501*^9, 
   3.467467136923245*^9, 3.467478605351597*^9, 3.46747959056782*^9, 
   3.4674798990900373`*^9, 3.467480319654842*^9, 3.467480449085957*^9, 
   3.4674807961991587`*^9, 3.467480828309428*^9, 3.4674828125680103`*^9, 
   3.467483056686688*^9, 3.467483487328343*^9, 3.46748352294077*^9, 
   3.46748356996346*^9, 3.4674836890600863`*^9, {3.467579268457542*^9, 
   3.4675793214376583`*^9}, 3.4675793734474363`*^9, 3.467580672949054*^9, 
   3.467581507623804*^9, 3.467581545922216*^9, 3.4675827444483433`*^9, 
   3.4675830545217733`*^9, 3.4675830899351892`*^9, 3.467583478340539*^9, 
   3.467584083173296*^9, 3.467584148195107*^9, 3.46758425118122*^9, 
   3.4675843214891777`*^9, 3.467584475965221*^9, {3.4675846111291933`*^9, 
   3.467584639200727*^9}, {3.4675846768150597`*^9, 3.4675846992336082`*^9}, 
   3.467584730125839*^9, 3.467584807623424*^9, 3.4676322318848248`*^9, 
   3.467632367236558*^9, {3.467632433025032*^9, 3.4676324757886457`*^9}, 
   3.467632532357929*^9, 3.467652528191565*^9, 3.468590121135676*^9, 
   3.468593540758183*^9, 3.4685939540176563`*^9, 3.468594452396056*^9, {
   3.468594514194973*^9, 3.468594539148954*^9}, 3.468594670191107*^9, 
   3.468594718972927*^9, 3.4686737374060287`*^9, 3.468673800739612*^9, 
   3.468673836051963*^9, 3.46867395485045*^9, 3.468675312991984*^9, 
   3.468678414728159*^9, 3.4686785366474247`*^9, {3.468678766137184*^9, 
   3.468678781898787*^9}, 3.469193246822085*^9, 3.4691934114739428`*^9, 
   3.469193719731166*^9, 3.4691937628590403`*^9, 3.4691938233460293`*^9, 
   3.469194030465671*^9, 3.469479980905983*^9, 3.469480040172879*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Evaluate", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Angle", "[", 
      RowBox[{"mV", ",", "1"}], "]"}], "}"}], "/.", 
    RowBox[{"SolveMech", "[", "]"}]}], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{"180", "/", "\[Pi]"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.4354233198572273`*^9, 3.435423336648115*^9}}],

Cell[BoxData[
 RowBox[{"{", "35.00000000000001`", "}"}]], "Output",
 CellChangeTimes->{{3.434123203732888*^9, 3.434123214018982*^9}, 
   3.434123262965726*^9, {3.4341234023994083`*^9, 3.434123449746995*^9}, {
   3.434123507887905*^9, 3.434123548130678*^9}, 3.434125036338992*^9, 
   3.4341250853792133`*^9, 3.434125122616885*^9, 3.434125227316805*^9, 
   3.4341324500747766`*^9, 3.434133289676886*^9, 3.434133386224289*^9, 
   3.4341987878000097`*^9, 3.434205249833119*^9, 3.434229884934246*^9, 
   3.434230943190527*^9, 3.434274349879294*^9, 3.43427443055289*^9, 
   3.434275616048737*^9, 3.435344654958803*^9, 3.435422996138465*^9, 
   3.4354233374502897`*^9, 3.435423582767679*^9, 3.435423724102519*^9, 
   3.435424042712367*^9, 3.457690921831407*^9, 3.4576929060598927`*^9, {
   3.457710596605604*^9, 3.457710621269389*^9}, 3.466770579970213*^9, 
   3.4667934422162867`*^9, {3.466852696901371*^9, 3.46685272455567*^9}, 
   3.466852901439533*^9, {3.4668536540147877`*^9, 3.466853667440426*^9}, 
   3.466854890625783*^9, 3.4668564633538437`*^9, 3.466950792879743*^9, 
   3.4669509771822968`*^9, 3.466951252877592*^9, 3.46695172821146*^9, 
   3.466952282829163*^9, 3.4669528249956512`*^9, 3.466958986426036*^9, 
   3.466960318245613*^9, 3.466960749302752*^9, 3.466961327029364*^9, 
   3.466964690300837*^9, 3.467033543447209*^9, 3.467034059023713*^9, 
   3.467049143657909*^9, 3.4670498243907013`*^9, 3.467049884737556*^9, 
   3.467050283146674*^9, 3.467050613710017*^9, 3.4670515665425243`*^9, 
   3.467131110276773*^9, 3.4671311567443657`*^9, 3.4671316125855217`*^9, 
   3.467391033050508*^9, 3.4673910743203773`*^9, {3.467391856995908*^9, 
   3.467391865566204*^9}, 3.467392041631124*^9, {3.467393324939054*^9, 
   3.46739333423547*^9}, 3.46739336949615*^9, 3.467393888519883*^9, 
   3.467395362247154*^9, 3.4673963449111423`*^9, 3.4673967092480516`*^9, 
   3.4673974161563053`*^9, 3.467397757881641*^9, 3.4673991859504766`*^9, 
   3.467399376160551*^9, {3.4674002206337643`*^9, 3.467400225039589*^9}, 
   3.4674019643069773`*^9, 3.467402269064271*^9, 3.4674033106010942`*^9, 
   3.467458606351615*^9, 3.4674588550892878`*^9, 3.4674608798514338`*^9, {
   3.467460934061904*^9, 3.467460949808263*^9}, 3.467461015602512*^9, 
   3.4674611584041653`*^9, {3.4674612446193047`*^9, 3.4674612919750957`*^9}, 
   3.4674614684339447`*^9, 3.467462288127131*^9, 3.467462331863298*^9, 
   3.467462394589834*^9, 3.46746434257871*^9, 3.467467136929001*^9, 
   3.46747860535708*^9, 3.467479590583768*^9, 3.467479899125559*^9, 
   3.467480319688108*^9, 3.46748044912836*^9, 3.467480796231627*^9, 
   3.4674808283493853`*^9, 3.46748281257343*^9, 3.4674830566920767`*^9, 
   3.467483487364071*^9, 3.467483522973505*^9, 3.467483569979891*^9, 
   3.4674836890657187`*^9, {3.467579268557274*^9, 3.4675793214695177`*^9}, 
   3.467579373612965*^9, 3.467580672973332*^9, 3.467581507629046*^9, 
   3.4675815459274063`*^9, 3.467582744453979*^9, 3.467583054527055*^9, 
   3.467583089942672*^9, 3.467583478345769*^9, 3.467584083178699*^9, 
   3.467584148200533*^9, 3.467584251229416*^9, 3.4675843214944553`*^9, 
   3.467584475981742*^9, {3.4675846111603107`*^9, 3.467584639206012*^9}, {
   3.4675846768315077`*^9, 3.4675846992509527`*^9}, 3.4675847301423883`*^9, 
   3.4675848076602087`*^9, 3.467632231890072*^9, 3.4676323672915487`*^9, {
   3.467632433030435*^9, 3.4676324757940083`*^9}, 3.467632532365327*^9, 
   3.467652528197873*^9, 3.468590121141906*^9, 3.468593540763612*^9, 
   3.468593954031342*^9, 3.468594452436184*^9, {3.4685945142849627`*^9, 
   3.468594539186672*^9}, 3.4685946702449408`*^9, 3.468594718984766*^9, 
   3.468673737420589*^9, 3.468673800810055*^9, 3.468673836115635*^9, 
   3.468673954920788*^9, 3.468675313025234*^9, 3.4686784147730923`*^9, 
   3.468678536726458*^9, {3.468678766202427*^9, 3.4686787819317408`*^9}, 
   3.4691932468283787`*^9, 3.469193411479307*^9, 3.4691937197976007`*^9, 
   3.4691937628864393`*^9, 3.46919382335126*^9, 3.469194030517581*^9, 
   3.469479980939196*^9, 3.469480040238778*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Define Loads", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, {
   3.433854243044737*^9, 3.4338542438431273`*^9}, {3.433867943093115*^9, 
   3.433867944890934*^9}, 3.4338683672807693`*^9, {3.43410551368935*^9, 
   3.4341055144477167`*^9}, 3.434106163146392*^9, 3.434107568980838*^9, 
   3.434119313613394*^9}],

Cell["\<\

Moment created by the spring\
\>", "Text",
 CellChangeTimes->{{3.435421382250908*^9, 3.4354213984328613`*^9}, {
  3.435421435643076*^9, 3.4354214364987183`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"springMoment", "=", 
   RowBox[{"kSpring", "  ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"Pi", "/", "2"}], " ", "-", 
      RowBox[{"Angle", "[", 
       RowBox[{"mV", ",", "1"}], "]"}], "-", "thetaRest"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dragMoment", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "0.5"}], "*", "rho", "*", "Cd", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Velocity", "[", "dactyl", "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}], ")"}], "^", "2"}], "*", "dA"}], 
     ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Velocity", "[", "dactyl", "]"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}], "/", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"-", "20"}]}], "+", 
        RowBox[{
         RowBox[{"Velocity", "[", "dactyl", "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.467397367059475*^9, 3.46739737225071*^9}, {
   3.467399200093937*^9, 3.467399224662904*^9}, {3.46739930539154*^9, 
   3.467399307877944*^9}, {3.467464168450169*^9, 3.467464174271186*^9}, 
   3.467479580284769*^9, {3.4674798658431053`*^9, 3.4674798694658403`*^9}, {
   3.467480295432111*^9, 3.467480301144023*^9}, 3.46748078867292*^9, 
   3.4674808188044147`*^9, {3.467577943277213*^9, 3.4675779508016977`*^9}, {
   3.467580590093889*^9, 3.4675806032544193`*^9}, {3.467581391122341*^9, 
   3.467581410424718*^9}, {3.467582622476081*^9, 3.4675826696199007`*^9}, {
   3.467582885375607*^9, 3.467582904264361*^9}, {3.467582978228339*^9, 
   3.467583035454988*^9}, 3.467583078276351*^9, {3.4675840193969917`*^9, 
   3.467584059741879*^9}, {3.467584111082471*^9, 3.467584118256734*^9}, {
   3.4675842053591557`*^9, 3.467584208069194*^9}, {3.469193689290512*^9, 
   3.469193699179002*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ld", "[", "1", "]"}], "=", 
   RowBox[{"Moment", "[", 
    RowBox[{"mV", ",", "springMoment"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4341179384334507`*^9, 3.434118015487814*^9}, 
   3.434118808587479*^9, {3.434119088745708*^9, 3.434119103535346*^9}, {
   3.4341192045669823`*^9, 3.4341192125890408`*^9}, 3.4341193136136293`*^9, {
   3.4341213624623003`*^9, 3.4341213629294147`*^9}, 3.434274334785894*^9, 
   3.4342755283244343`*^9, 3.4342784293607187`*^9, {3.434281338262145*^9, 
   3.4342813387091217`*^9}, 3.4343007600018578`*^9, 3.435421376419284*^9, {
   3.4354217361958027`*^9, 3.4354217496630898`*^9}, {3.435421880333239*^9, 
   3.4354218956517982`*^9}, {3.435423527590975*^9, 3.435423529682732*^9}, {
   3.45771026545807*^9, 3.457710338084113*^9}, {3.466852959657402*^9, 
   3.4668529604010687`*^9}, {3.466949762598448*^9, 3.466949764682323*^9}, {
   3.466949959090445*^9, 3.466949960241022*^9}, 3.4669500157521267`*^9, {
   3.466950393808113*^9, 3.4669503955097322`*^9}, {3.4669504546594143`*^9, 
   3.4669504604997807`*^9}, {3.467390886693614*^9, 3.467390903693972*^9}, {
   3.467391083172348*^9, 3.467391083271961*^9}, {3.467393242107831*^9, 
   3.467393286292718*^9}, {3.4673965904779997`*^9, 3.467396648533126*^9}, {
   3.467397363979684*^9, 3.467397378411203*^9}}],

Cell["\<\

Drag on dactyl\
\>", "Text",
 CellChangeTimes->{{3.435421936917057*^9, 3.4354219500619164`*^9}}],

Cell["\<\
ld[2] = Force[dactyl, Axis[Point[dactyl, 1], -Velocity[dactyl, 1]^2], 5.0, \
Magnitude -> Relative];\
\>", "Text",
 CellChangeTimes->{{3.434107461221321*^9, 3.434107536985395*^9}, 
   3.434107568981022*^9, 3.43410956185292*^9, 3.434114758636565*^9, {
   3.434114908364341*^9, 3.434114908826633*^9}, 3.434119313613687*^9, 
   3.435422067622748*^9, {3.435422162294079*^9, 3.435422164273871*^9}, {
   3.435422226340621*^9, 3.435422236261747*^9}, {3.4354223008271923`*^9, 
   3.4354223319230137`*^9}, {3.435422380093701*^9, 3.435422381469528*^9}, {
   3.4354224154954576`*^9, 3.435422463122024*^9}, {3.435422588682383*^9, 
   3.4354225891043367`*^9}, {3.4354227453703413`*^9, 3.435422746608529*^9}, {
   3.435427201963395*^9, 3.435427211107098*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ld", "[", "2", "]"}], "=", 
   RowBox[{"Moment", "[", 
    RowBox[{"dactyl", ",", 
     RowBox[{"0", "*", "dragMoment"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.467031857615892*^9, 3.467031868757907*^9}, {
   3.467033567033801*^9, 3.467033626795087*^9}, {3.467033764074607*^9, 
   3.467033810400522*^9}, {3.467033896355175*^9, 3.467033922320753*^9}, {
   3.467034113095687*^9, 3.4670341862810497`*^9}, 3.467034833956736*^9, {
   3.4674641576694317`*^9, 3.467464164548934*^9}, {3.467480091453931*^9, 
   3.4674801011403627`*^9}, {3.4674801776419497`*^9, 3.467480199025725*^9}, {
   3.4674802839038258`*^9, 3.467480284341455*^9}, {3.467584663619111*^9, 
   3.467584721575204*^9}}],

Cell["TODO: Add Acceleration reaction on dactyl", "Text",
 CellChangeTimes->{{3.466858301651011*^9, 3.466858314162361*^9}, {
  3.466950481302197*^9, 3.466950486139874*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ld", "[", "3", "]"}], "=", 
   RowBox[{"Gravity", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", "0"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4674032578383207`*^9, 3.467403277366864*^9}, {
  3.4674614613131123`*^9, 3.4674614859728603`*^9}}],

Cell[BoxData[
 RowBox[{"SetLoads", "[", 
  RowBox[{
   RowBox[{"ld", "[", "1", "]"}], ",", 
   RowBox[{"ld", "[", "2", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434105940029258*^9, 3.434105946030613*^9}, 
   3.434106163146649*^9, {3.434107541681593*^9, 3.4341075689812927`*^9}, 
   3.434119313613799*^9, {3.4341211891325493`*^9, 3.434121191492165*^9}, 
   3.434121347982469*^9, {3.435421963271137*^9, 3.435421964911187*^9}, {
   3.4674032990942497`*^9, 3.467403300763925*^9}, 3.4674623870906887`*^9, {
   3.467464135180768*^9, 3.4674641374348783`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Check system after loads:\>\"", " ", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"CheckSystem", "[", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.466961089334976*^9, 3.46696111812042*^9}}],

Cell[BoxData[
 RowBox[{"\<\"Check system after loads:\"\>", " ", "True"}]], "Print",
 CellChangeTimes->{{3.4669610984461813`*^9, 3.466961122861388*^9}, 
   3.466961327184416*^9, 3.466964690396402*^9, 3.4670335440544777`*^9, 
   3.467034059348158*^9, 3.467034820836413*^9, 3.467049143974249*^9, 
   3.4670498244623404`*^9, 3.467049884804676*^9, 3.467050283222804*^9, 
   3.467050613783106*^9, 3.4670515666359177`*^9, 3.46713111034842*^9, 
   3.467131156820657*^9, 3.4671316126700153`*^9, 3.4673910334797373`*^9, {
   3.467391076869302*^9, 3.4673910881425037`*^9}, {3.467391857079763*^9, 
   3.4673918656288*^9}, 3.46739204172991*^9, {3.467393325044097*^9, 
   3.46739333436757*^9}, 3.4673933696123257`*^9, 3.467393888770055*^9, 
   3.467396387329546*^9, 3.467396709326035*^9, 3.467397416290276*^9, 
   3.467397777311674*^9, 3.467399231956585*^9, 3.4673993765860357`*^9, {
   3.467400220748343*^9, 3.467400225149679*^9}, 3.467401964382413*^9, 
   3.467402269192678*^9, 3.467403310801528*^9, 3.467458606454907*^9, 
   3.467458855228651*^9, 3.467460879989925*^9, {3.467460934182413*^9, 
   3.4674609499590807`*^9}, 3.467461015734387*^9, 3.467461158531536*^9, {
   3.467461244739778*^9, 3.467461292078731*^9}, 3.467461468613183*^9, 
   3.467462288448489*^9, 3.467462332158162*^9, 3.467462394829535*^9, 
   3.4674643428601313`*^9, 3.46746713703811*^9, 3.467478605481461*^9, 
   3.467479590713215*^9, 3.4674798993109217`*^9, 3.4674802059493847`*^9, {
   3.467480307593261*^9, 3.467480319885982*^9}, 3.4674804492910137`*^9, 
   3.467480796479398*^9, 3.4674808285052557`*^9, 3.467482812697545*^9, 
   3.4674830567987423`*^9, 3.467483487457266*^9, 3.467483523073937*^9, 
   3.467483570077615*^9, 3.467483689189076*^9, {3.467579268784918*^9, 
   3.467579321587219*^9}, 3.4675793852667*^9, 3.467580673073317*^9, 
   3.467581507754764*^9, 3.46758154610999*^9, 3.467582744579897*^9, 
   3.467583054807858*^9, 3.467583090032528*^9, 3.467583478464918*^9, 
   3.467584083300301*^9, 3.467584148454595*^9, 3.467584251355638*^9, 
   3.4675843216130867`*^9, 3.467584476097419*^9, {3.4675846112796917`*^9, 
   3.467584639316897*^9}, {3.4675846774439573`*^9, 3.4675846993493032`*^9}, 
   3.467584730258523*^9, 3.467584807788115*^9, 3.467632232022821*^9, 
   3.467632367562586*^9, {3.4676324331226463`*^9, 3.4676324758930597`*^9}, 
   3.467632532455349*^9, 3.467652528305708*^9, 3.468590121245615*^9, 
   3.4685935408946953`*^9, 3.468593954154427*^9, 3.468594452810855*^9, {
   3.468594514450534*^9, 3.468594539537915*^9}, 3.4685946703806057`*^9, 
   3.46859471928508*^9, 3.4686737375190697`*^9, 3.4686738009357986`*^9, 
   3.468673836284814*^9, 3.46867395508008*^9, 3.46867531318976*^9, 
   3.468678414904347*^9, 3.468678536842383*^9, {3.4686787663304462`*^9, 
   3.468678782080669*^9}, 3.469193246931409*^9, 3.4691934115979633`*^9, 
   3.4691937201354723`*^9, 3.469193763022605*^9, 3.469193823711681*^9, 
   3.469194030644599*^9, 3.4694799811712914`*^9, 3.469480040427681*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Find solution", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, {
   3.433854243044737*^9, 3.4338542438431273`*^9}, {3.433867943093115*^9, 
   3.433867944890934*^9}, 3.4338683672807693`*^9, {3.43410551368935*^9, 
   3.4341055144477167`*^9}, 3.434106163146392*^9, 3.434107568980838*^9, {
   3.434114466203801*^9, 3.434114468102406*^9}, 3.434117820733309*^9, 
   3.434119313613997*^9}],

Cell["Solution with the 4-bar linkage constrained from moving:", "Text",
 CellChangeTimes->{{3.434114479520831*^9, 3.4341145127087793`*^9}, 
   3.4341178207334023`*^9, 3.434119313614067*^9}],

Cell["\<\
Remove constraint 2 (fixed angle of the mV)  & define initial conditions\
\>", "Text",
 CellChangeTimes->{{3.434114522836343*^9, 3.434114585080662*^9}, 
   3.434117820733615*^9, 3.434119313614246*^9, {3.4669510010939503`*^9, 
   3.466951010231287*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fsys", " ", "=", " ", 
   RowBox[{"SetFree", "[", 
    RowBox[{"2", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Solution", "\[Rule]", "Dynamic"}], ",", "\[IndentingNewLine]",
        
       RowBox[{"InitialCondition", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"T", "\[Rule]", "0"}], ",", 
          RowBox[{"\[CapitalTheta]2d", "\[Rule]", "0"}], ",", 
          RowBox[{"\[CapitalTheta]3d", "\[Rule]", "0"}], ",", 
          RowBox[{"\[CapitalTheta]4d", "\[Rule]", "0"}], ",", 
          RowBox[{"X2d", "\[Rule]", "0"}], ",", 
          RowBox[{"Y2d", "\[Rule]", "0"}], ",", 
          RowBox[{"X3d", "\[Rule]", "0"}], ",", 
          RowBox[{"Y3d", "\[Rule]", "0"}], ",", 
          RowBox[{"X4d", "\[Rule]", "0"}], ",", 
          RowBox[{"Y4d", "\[Rule]", "0"}]}], "}"}]}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.434109096289949*^9, 3.434109107522464*^9}, {
   3.4341091908887663`*^9, 3.434109245052086*^9}, 3.4341097474359293`*^9, 
   3.434114274571185*^9, 3.43411782073368*^9, {3.434118125521209*^9, 
   3.4341181267671947`*^9}, 3.434119313614304*^9, 3.434120161305183*^9, {
   3.4341215675602303`*^9, 3.4341215729476433`*^9}, {3.434278121725716*^9, 
   3.4342781527803507`*^9}, {3.434278185765707*^9, 3.434278309053814*^9}, {
   3.434278350866028*^9, 3.434278382666182*^9}, {3.4669505630337143`*^9, 
   3.466950610299862*^9}, {3.4669508906291323`*^9, 3.4669509207250757`*^9}}],

Cell["SolveFree[fsys]", "Text",
 CellChangeTimes->{3.43411658333981*^9, 3.434117820733869*^9, 
  3.434119313614365*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Default", " ", "solver"}], " ", "*)"}], "\n", 
  RowBox[{
   RowBox[{"sol", " ", "=", " ", 
    RowBox[{"SolveFree", "[", 
     RowBox[{"fsys", ",", " ", "simDuration", ",", " ", 
      RowBox[{"MakeRules", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{"Location", ",", " ", "Velocity", ",", " ", "Acceleration"}], 
        "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"MaxError", "\[Rule]", "mxErr"}]}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.434110714439767*^9, 3.434110722118281*^9}, {
   3.434111265924449*^9, 3.434111266010551*^9}, {3.4341134794646263`*^9, 
   3.434113479767232*^9}, {3.434113973249895*^9, 3.4341140061305857`*^9}, {
   3.434114098121132*^9, 3.434114098615354*^9}, {3.434114166759571*^9, 
   3.4341141669368353`*^9}, {3.434114214079558*^9, 3.434114226354653*^9}, {
   3.434114446316066*^9, 3.43411444680991*^9}, {3.4341147802121553`*^9, 
   3.434114792660252*^9}, 3.4341178207341223`*^9, {3.43411893264858*^9, 
   3.4341189355665607`*^9}, 3.434119313614493*^9, {3.434121553566028*^9, 
   3.43412155439117*^9}, {3.434121836967801*^9, 3.434121876648406*^9}, 
   3.434121990600216*^9, 3.434122218579628*^9, 3.434123439370544*^9, 
   3.434274602949483*^9, {3.466953654301529*^9, 3.466953663666408*^9}, 
   3.467391391410309*^9, {3.467460824909945*^9, 3.467460833400572*^9}, {
   3.467460906515904*^9, 3.4674609424679213`*^9}, {3.467461001105048*^9, 
   3.4674610644021463`*^9}, {3.4674833854417887`*^9, 3.467483395334813*^9}, {
   3.467579426101071*^9, 3.4675794282665577`*^9}, {3.467579458834546*^9, 
   3.467579460560563*^9}}],

Cell["\<\
(* High precision solver *)
sol = SolveFree[fsys, simDuration, MakeRules -> {Location, Velocity, \
Acceleration},
   ConstraintCorrection -> True,
   MaxError -> 10^-7,
   Method -> Corrector,
   FitDegree -> Quadratic,
   MaxSteps -> 5000];\
\>", "Text",
 CellChangeTimes->{{3.434110714439767*^9, 3.434110722118281*^9}, {
   3.434111265924449*^9, 3.434111266010551*^9}, {3.4341134794646263`*^9, 
   3.434113479767232*^9}, {3.434113973249895*^9, 3.4341140061305857`*^9}, {
   3.434114098121132*^9, 3.434114098615354*^9}, {3.434114166759571*^9, 
   3.4341141669368353`*^9}, {3.434114214079558*^9, 3.434114226354653*^9}, {
   3.434114446316066*^9, 3.43411444680991*^9}, {3.4341147802121553`*^9, 
   3.434114792660252*^9}, 3.4341178207341223`*^9, {3.43411893264858*^9, 
   3.4341189355665607`*^9}, 3.434119313614493*^9, {3.434121553566028*^9, 
   3.43412155439117*^9}, {3.434121836967801*^9, 3.434121876648406*^9}, 
   3.434121990600216*^9, 3.434122218579628*^9, 3.434123439370544*^9, 
   3.434274602949483*^9, {3.466953654301529*^9, 3.466953663666408*^9}, 
   3.467391391410309*^9, {3.467460824909945*^9, 3.467460833400572*^9}, {
   3.467460906515904*^9, 3.4674609424679213`*^9}, {3.467461001105048*^9, 
   3.467461042089189*^9}, {3.467461144016453*^9, 3.467461152468639*^9}, {
   3.467461232884074*^9, 3.467461283773856*^9}, {3.467461331114501*^9, 
   3.4674613336645107`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Simulation diagnostics (for debugging)", "Subsection",
 CellChangeTimes->{{3.434120615330065*^9, 3.434120626854775*^9}, {
  3.435426839056003*^9, 3.4354268473996553`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Constraints", "[", "1", "]"}], "/.", "sol"}], "\n", 
 RowBox[{
  RowBox[{"Constraints", "[", "3", "]"}], "/.", 
  "sol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Constraints", "[", "4", "]"}], "/.", "sol"}]}], "Input",
 CellChangeTimes->{{3.4341104449475937`*^9, 3.4341104729541883`*^9}, {
  3.434120587703637*^9, 3.434120591943199*^9}, {3.434125056814822*^9, 
  3.4341250720547037`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.434110431951111*^9, 3.434110454202814*^9}, 
   3.43411075902142*^9, 3.434110967855811*^9, 3.434111236282237*^9, 
   3.434113512150239*^9, 3.4341139921943913`*^9, 3.434114086330048*^9, 
   3.4341141724356422`*^9, 3.434114236132615*^9, 3.434114279024781*^9, 
   3.434114432329094*^9, 3.434114750492921*^9, 3.434116589515553*^9, 
   3.434116646060573*^9, 3.434117796882786*^9, {3.434118007971463*^9, 
   3.43411801933004*^9}, 3.43411881323666*^9, {3.4341191186406527`*^9, 
   3.434119134386747*^9}, 3.4341201259259872`*^9, {3.4341201648929653`*^9, 
   3.434120170648033*^9}, 3.434120287594252*^9, 3.434120594244836*^9, 
   3.43412083868734*^9, 3.434121039876391*^9, 3.434121276929411*^9, {
   3.4341213531756153`*^9, 3.434121368356018*^9}, 3.434122222941553*^9, 
   3.434123213247794*^9, 3.434123443322116*^9, 3.43412503467489*^9, {
   3.434125072697398*^9, 3.434125082977347*^9}, 3.4341251214600067`*^9, 
   3.434125226494369*^9, 3.434132449537163*^9, 3.43413325829112*^9, 
   3.4341332889666862`*^9, 3.434133385461793*^9, 3.4341987865886307`*^9, 
   3.434230104263462*^9, 3.434230940093767*^9, 3.434274345216651*^9, 
   3.434274425997669*^9, 3.4342755553023567`*^9, 3.4342811773226633`*^9, 
   3.434281393601799*^9, 3.435344654567807*^9, 3.435422597614531*^9, 
   3.435422790688212*^9, 3.4354235838209887`*^9, 3.43542372440938*^9, 
   3.435424042983329*^9, 3.4354242541574907`*^9, 3.4576909224979153`*^9, 
   3.457692906468399*^9, {3.457710597376452*^9, 3.4577106217704983`*^9}, 
   3.466770580953483*^9, 3.466793442683093*^9, {3.4668526972065153`*^9, 
   3.466852725046249*^9}, {3.4668536544617453`*^9, 3.466853668039753*^9}, 
   3.466854891067947*^9, 3.466856463770854*^9, 3.466950639999337*^9, 
   3.466950793124811*^9, 3.466950977810349*^9, 3.4669512530706587`*^9, 
   3.466951728752119*^9, 3.4669522830661993`*^9, 3.46695282522167*^9, 
   3.466958986668727*^9, 3.466960318478965*^9, 3.466960749862349*^9, 
   3.466961327396209*^9, 3.466964690551461*^9, 3.467033544159347*^9, 
   3.467034059598537*^9, 3.46703484664695*^9, 3.4670491442854643`*^9, 
   3.467049824572978*^9, 3.467049884934038*^9, 3.4670502834032717`*^9, 
   3.467050613959227*^9, 3.467051566955846*^9, 3.467131110487433*^9, 
   3.4671311569707527`*^9, 3.4671316127996407`*^9, 3.467391033884428*^9, {
   3.467391857170616*^9, 3.467391865716749*^9}, 3.467392041951816*^9, {
   3.467393325145487*^9, 3.467393334522305*^9}, 3.467393369849552*^9, 
   3.4673938888971577`*^9, 3.46739639968161*^9, 3.4673967095152607`*^9, 
   3.467397416619813*^9, 3.46739777742073*^9, 3.4673992476810217`*^9, 
   3.467399376838057*^9, {3.467400220840755*^9, 3.467400225466991*^9}, 
   3.4674019648042803`*^9, 3.467402269281715*^9, 3.467403311230784*^9, 
   3.4674586066592283`*^9, 3.467458855549779*^9, 3.467460880300338*^9, {
   3.4674609345119047`*^9, 3.467460950409031*^9}, 3.46746101622926*^9, 
   3.4674611599268303`*^9, {3.4674612457263308`*^9, 3.467461292621077*^9}, 
   3.467461469353928*^9, 3.467462288838394*^9, 3.4674623322954273`*^9, 
   3.467462395084612*^9, 3.467464342994376*^9, 3.467467137379044*^9, 
   3.4674786056391478`*^9, 3.467479590979027*^9, 3.467480320165325*^9, 
   3.4674804495739193`*^9, 3.467480796634871*^9, 3.467480828743485*^9, 
   3.467482812917976*^9, 3.46748305692026*^9, 3.467483487810876*^9, 
   3.467483523171208*^9, 3.467483570147081*^9, 3.467483689437725*^9, {
   3.467579269154887*^9, 3.467579321664196*^9}, 3.467579473404196*^9, 
   3.4675806731716022`*^9, 3.467581507869007*^9, 3.46758154626392*^9, 
   3.4675827446932364`*^9, 3.467583055211939*^9, 3.467583090145647*^9, 
   3.4675834785675697`*^9, 3.4675840833982973`*^9, 3.467584148541562*^9, 
   3.4675842514367456`*^9, 3.4675843217820787`*^9, 3.4675844762148867`*^9, {
   3.467584611378463*^9, 3.467584639484964*^9}, {3.46758467760471*^9, 
   3.467584699518448*^9}, 3.467584730569063*^9, 3.467584808157257*^9, 
   3.467632232134191*^9, 3.4676323678355618`*^9, {3.467632433215766*^9, 
   3.4676324759932756`*^9}, 3.4676325326768303`*^9, 3.467652528479917*^9, 
   3.4685901213266153`*^9, 3.4685935410534973`*^9, 3.468593954232215*^9, 
   3.468594453330613*^9, {3.468594514619244*^9, 3.468594539671068*^9}, 
   3.4685946704658127`*^9, 3.468594719446164*^9, 3.4686737376064653`*^9, 
   3.4686738011286383`*^9, 3.468673836467853*^9, 3.4686739553051243`*^9, 
   3.468675314032394*^9, 3.468678415019478*^9, 3.468678537007374*^9, {
   3.468678766582458*^9, 3.468678782220169*^9}, 3.46919324707701*^9, 
   3.4691934117136803`*^9, 3.469193720340205*^9, 3.469193763221312*^9, 
   3.469193823900241*^9, 3.469194030754366*^9, 3.469479981307996*^9, 
   3.469480040588338*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "0.40957602214449584`"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}], "]"}]}], "+", 
    RowBox[{"0.2867882181755231`", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}], "]"}]}], "+", 
    RowBox[{
     TagBox[
      RowBox[{"InterpolatingFunction", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
       "]"}],
      False,
      Editable->False], "[", "T", "]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "0.2867882181755231`"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}], "]"}]}], "-", 
    RowBox[{"0.40957602214449584`", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}], "]"}]}], "+", 
    RowBox[{
     TagBox[
      RowBox[{"InterpolatingFunction", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
       "]"}],
      False,
      Editable->False], "[", "T", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.434110431951111*^9, 3.434110454202814*^9}, 
   3.43411075902142*^9, 3.434110967855811*^9, 3.434111236282237*^9, 
   3.434113512150239*^9, 3.4341139921943913`*^9, 3.434114086330048*^9, 
   3.4341141724356422`*^9, 3.434114236132615*^9, 3.434114279024781*^9, 
   3.434114432329094*^9, 3.434114750492921*^9, 3.434116589515553*^9, 
   3.434116646060573*^9, 3.434117796882786*^9, {3.434118007971463*^9, 
   3.43411801933004*^9}, 3.43411881323666*^9, {3.4341191186406527`*^9, 
   3.434119134386747*^9}, 3.4341201259259872`*^9, {3.4341201648929653`*^9, 
   3.434120170648033*^9}, 3.434120287594252*^9, 3.434120594244836*^9, 
   3.43412083868734*^9, 3.434121039876391*^9, 3.434121276929411*^9, {
   3.4341213531756153`*^9, 3.434121368356018*^9}, 3.434122222941553*^9, 
   3.434123213247794*^9, 3.434123443322116*^9, 3.43412503467489*^9, {
   3.434125072697398*^9, 3.434125082977347*^9}, 3.4341251214600067`*^9, 
   3.434125226494369*^9, 3.434132449537163*^9, 3.43413325829112*^9, 
   3.4341332889666862`*^9, 3.434133385461793*^9, 3.4341987865886307`*^9, 
   3.434230104263462*^9, 3.434230940093767*^9, 3.434274345216651*^9, 
   3.434274425997669*^9, 3.4342755553023567`*^9, 3.4342811773226633`*^9, 
   3.434281393601799*^9, 3.435344654567807*^9, 3.435422597614531*^9, 
   3.435422790688212*^9, 3.4354235838209887`*^9, 3.43542372440938*^9, 
   3.435424042983329*^9, 3.4354242541574907`*^9, 3.4576909224979153`*^9, 
   3.457692906468399*^9, {3.457710597376452*^9, 3.4577106217704983`*^9}, 
   3.466770580953483*^9, 3.466793442683093*^9, {3.4668526972065153`*^9, 
   3.466852725046249*^9}, {3.4668536544617453`*^9, 3.466853668039753*^9}, 
   3.466854891067947*^9, 3.466856463770854*^9, 3.466950639999337*^9, 
   3.466950793124811*^9, 3.466950977810349*^9, 3.4669512530706587`*^9, 
   3.466951728752119*^9, 3.4669522830661993`*^9, 3.46695282522167*^9, 
   3.466958986668727*^9, 3.466960318478965*^9, 3.466960749862349*^9, 
   3.466961327396209*^9, 3.466964690551461*^9, 3.467033544159347*^9, 
   3.467034059598537*^9, 3.46703484664695*^9, 3.4670491442854643`*^9, 
   3.467049824572978*^9, 3.467049884934038*^9, 3.4670502834032717`*^9, 
   3.467050613959227*^9, 3.467051566955846*^9, 3.467131110487433*^9, 
   3.4671311569707527`*^9, 3.4671316127996407`*^9, 3.467391033884428*^9, {
   3.467391857170616*^9, 3.467391865716749*^9}, 3.467392041951816*^9, {
   3.467393325145487*^9, 3.467393334522305*^9}, 3.467393369849552*^9, 
   3.4673938888971577`*^9, 3.46739639968161*^9, 3.4673967095152607`*^9, 
   3.467397416619813*^9, 3.46739777742073*^9, 3.4673992476810217`*^9, 
   3.467399376838057*^9, {3.467400220840755*^9, 3.467400225466991*^9}, 
   3.4674019648042803`*^9, 3.467402269281715*^9, 3.467403311230784*^9, 
   3.4674586066592283`*^9, 3.467458855549779*^9, 3.467460880300338*^9, {
   3.4674609345119047`*^9, 3.467460950409031*^9}, 3.46746101622926*^9, 
   3.4674611599268303`*^9, {3.4674612457263308`*^9, 3.467461292621077*^9}, 
   3.467461469353928*^9, 3.467462288838394*^9, 3.4674623322954273`*^9, 
   3.467462395084612*^9, 3.467464342994376*^9, 3.467467137379044*^9, 
   3.4674786056391478`*^9, 3.467479590979027*^9, 3.467480320165325*^9, 
   3.4674804495739193`*^9, 3.467480796634871*^9, 3.467480828743485*^9, 
   3.467482812917976*^9, 3.46748305692026*^9, 3.467483487810876*^9, 
   3.467483523171208*^9, 3.467483570147081*^9, 3.467483689437725*^9, {
   3.467579269154887*^9, 3.467579321664196*^9}, 3.467579473404196*^9, 
   3.4675806731716022`*^9, 3.467581507869007*^9, 3.46758154626392*^9, 
   3.4675827446932364`*^9, 3.467583055211939*^9, 3.467583090145647*^9, 
   3.4675834785675697`*^9, 3.4675840833982973`*^9, 3.467584148541562*^9, 
   3.4675842514367456`*^9, 3.4675843217820787`*^9, 3.4675844762148867`*^9, {
   3.467584611378463*^9, 3.467584639484964*^9}, {3.46758467760471*^9, 
   3.467584699518448*^9}, 3.467584730569063*^9, 3.467584808157257*^9, 
   3.467632232134191*^9, 3.4676323678355618`*^9, {3.467632433215766*^9, 
   3.4676324759932756`*^9}, 3.4676325326768303`*^9, 3.467652528479917*^9, 
   3.4685901213266153`*^9, 3.4685935410534973`*^9, 3.468593954232215*^9, 
   3.468594453330613*^9, {3.468594514619244*^9, 3.468594539671068*^9}, 
   3.4685946704658127`*^9, 3.468594719446164*^9, 3.4686737376064653`*^9, 
   3.4686738011286383`*^9, 3.468673836467853*^9, 3.4686739553051243`*^9, 
   3.468675314032394*^9, 3.468678415019478*^9, 3.468678537007374*^9, {
   3.468678766582458*^9, 3.468678782220169*^9}, 3.46919324707701*^9, 
   3.4691934117136803`*^9, 3.469193720340205*^9, 3.469193763221312*^9, 
   3.469193823900241*^9, 3.469194030754366*^9, 3.469479981307996*^9, 
   3.46948004059024*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.7130864197530862`"}], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1.`"}], "+", 
      RowBox[{"0.07827144605681075`", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         TagBox[
          RowBox[{"InterpolatingFunction", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
           "]"}],
          False,
          Editable->False], "[", "T", "]"}], "]"}]}], "+", 
      RowBox[{"0.14714400602795052`", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         TagBox[
          RowBox[{"InterpolatingFunction", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
           "]"}],
          False,
          Editable->False], "[", "T", "]"}], "]"}]}], "+", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}]}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"0.14714400602795052`", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         TagBox[
          RowBox[{"InterpolatingFunction", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
           "]"}],
          False,
          Editable->False], "[", "T", "]"}], "]"}]}], "-", 
      RowBox[{"0.07827144605681075`", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         TagBox[
          RowBox[{"InterpolatingFunction", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
           "]"}],
          False,
          Editable->False], "[", "T", "]"}], "]"}]}], "+", 
      RowBox[{
       TagBox[
        RowBox[{"InterpolatingFunction", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "4.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
         "]"}],
        False,
        Editable->False], "[", "T", "]"}]}], ")"}], "2"]}], "}"}]], "Output",
 CellChangeTimes->{{3.434110431951111*^9, 3.434110454202814*^9}, 
   3.43411075902142*^9, 3.434110967855811*^9, 3.434111236282237*^9, 
   3.434113512150239*^9, 3.4341139921943913`*^9, 3.434114086330048*^9, 
   3.4341141724356422`*^9, 3.434114236132615*^9, 3.434114279024781*^9, 
   3.434114432329094*^9, 3.434114750492921*^9, 3.434116589515553*^9, 
   3.434116646060573*^9, 3.434117796882786*^9, {3.434118007971463*^9, 
   3.43411801933004*^9}, 3.43411881323666*^9, {3.4341191186406527`*^9, 
   3.434119134386747*^9}, 3.4341201259259872`*^9, {3.4341201648929653`*^9, 
   3.434120170648033*^9}, 3.434120287594252*^9, 3.434120594244836*^9, 
   3.43412083868734*^9, 3.434121039876391*^9, 3.434121276929411*^9, {
   3.4341213531756153`*^9, 3.434121368356018*^9}, 3.434122222941553*^9, 
   3.434123213247794*^9, 3.434123443322116*^9, 3.43412503467489*^9, {
   3.434125072697398*^9, 3.434125082977347*^9}, 3.4341251214600067`*^9, 
   3.434125226494369*^9, 3.434132449537163*^9, 3.43413325829112*^9, 
   3.4341332889666862`*^9, 3.434133385461793*^9, 3.4341987865886307`*^9, 
   3.434230104263462*^9, 3.434230940093767*^9, 3.434274345216651*^9, 
   3.434274425997669*^9, 3.4342755553023567`*^9, 3.4342811773226633`*^9, 
   3.434281393601799*^9, 3.435344654567807*^9, 3.435422597614531*^9, 
   3.435422790688212*^9, 3.4354235838209887`*^9, 3.43542372440938*^9, 
   3.435424042983329*^9, 3.4354242541574907`*^9, 3.4576909224979153`*^9, 
   3.457692906468399*^9, {3.457710597376452*^9, 3.4577106217704983`*^9}, 
   3.466770580953483*^9, 3.466793442683093*^9, {3.4668526972065153`*^9, 
   3.466852725046249*^9}, {3.4668536544617453`*^9, 3.466853668039753*^9}, 
   3.466854891067947*^9, 3.466856463770854*^9, 3.466950639999337*^9, 
   3.466950793124811*^9, 3.466950977810349*^9, 3.4669512530706587`*^9, 
   3.466951728752119*^9, 3.4669522830661993`*^9, 3.46695282522167*^9, 
   3.466958986668727*^9, 3.466960318478965*^9, 3.466960749862349*^9, 
   3.466961327396209*^9, 3.466964690551461*^9, 3.467033544159347*^9, 
   3.467034059598537*^9, 3.46703484664695*^9, 3.4670491442854643`*^9, 
   3.467049824572978*^9, 3.467049884934038*^9, 3.4670502834032717`*^9, 
   3.467050613959227*^9, 3.467051566955846*^9, 3.467131110487433*^9, 
   3.4671311569707527`*^9, 3.4671316127996407`*^9, 3.467391033884428*^9, {
   3.467391857170616*^9, 3.467391865716749*^9}, 3.467392041951816*^9, {
   3.467393325145487*^9, 3.467393334522305*^9}, 3.467393369849552*^9, 
   3.4673938888971577`*^9, 3.46739639968161*^9, 3.4673967095152607`*^9, 
   3.467397416619813*^9, 3.46739777742073*^9, 3.4673992476810217`*^9, 
   3.467399376838057*^9, {3.467400220840755*^9, 3.467400225466991*^9}, 
   3.4674019648042803`*^9, 3.467402269281715*^9, 3.467403311230784*^9, 
   3.4674586066592283`*^9, 3.467458855549779*^9, 3.467460880300338*^9, {
   3.4674609345119047`*^9, 3.467460950409031*^9}, 3.46746101622926*^9, 
   3.4674611599268303`*^9, {3.4674612457263308`*^9, 3.467461292621077*^9}, 
   3.467461469353928*^9, 3.467462288838394*^9, 3.4674623322954273`*^9, 
   3.467462395084612*^9, 3.467464342994376*^9, 3.467467137379044*^9, 
   3.4674786056391478`*^9, 3.467479590979027*^9, 3.467480320165325*^9, 
   3.4674804495739193`*^9, 3.467480796634871*^9, 3.467480828743485*^9, 
   3.467482812917976*^9, 3.46748305692026*^9, 3.467483487810876*^9, 
   3.467483523171208*^9, 3.467483570147081*^9, 3.467483689437725*^9, {
   3.467579269154887*^9, 3.467579321664196*^9}, 3.467579473404196*^9, 
   3.4675806731716022`*^9, 3.467581507869007*^9, 3.46758154626392*^9, 
   3.4675827446932364`*^9, 3.467583055211939*^9, 3.467583090145647*^9, 
   3.4675834785675697`*^9, 3.4675840833982973`*^9, 3.467584148541562*^9, 
   3.4675842514367456`*^9, 3.4675843217820787`*^9, 3.4675844762148867`*^9, {
   3.467584611378463*^9, 3.467584639484964*^9}, {3.46758467760471*^9, 
   3.467584699518448*^9}, 3.467584730569063*^9, 3.467584808157257*^9, 
   3.467632232134191*^9, 3.4676323678355618`*^9, {3.467632433215766*^9, 
   3.4676324759932756`*^9}, 3.4676325326768303`*^9, 3.467652528479917*^9, 
   3.4685901213266153`*^9, 3.4685935410534973`*^9, 3.468593954232215*^9, 
   3.468594453330613*^9, {3.468594514619244*^9, 3.468594539671068*^9}, 
   3.4685946704658127`*^9, 3.468594719446164*^9, 3.4686737376064653`*^9, 
   3.4686738011286383`*^9, 3.468673836467853*^9, 3.4686739553051243`*^9, 
   3.468675314032394*^9, 3.468678415019478*^9, 3.468678537007374*^9, {
   3.468678766582458*^9, 3.468678782220169*^9}, 3.46919324707701*^9, 
   3.4691934117136803`*^9, 3.469193720340205*^9, 3.469193763221312*^9, 
   3.469193823900241*^9, 3.469194030754366*^9, 3.469479981307996*^9, 
   3.469480040591748*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StepMech", "[", "]"}]], "Input",
 CellChangeTimes->{{3.434281628426093*^9, 3.434281657389073*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"X2", "\[Rule]", 
    RowBox[{"0.`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"Y2", "\[Rule]", 
    RowBox[{"0.`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[CapitalTheta]2", "\[Rule]", 
    RowBox[{"0.`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"X3", "\[Rule]", 
    RowBox[{"0.40957602214449584`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"Y3", "\[Rule]", 
    RowBox[{"0.2867882181755231`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[CapitalTheta]3", "\[Rule]", 
    RowBox[{"0.`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"X4", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "0.1486790091261233`"}], "+", 
     RowBox[{"0.279885136318124`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"Y4", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "0.25555139767997387`"}], "-", 
     RowBox[{"0.28809860271960464`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\[CapitalTheta]4", "\[Rule]", 
    RowBox[{"0.`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.43428165794129*^9, 3.43534465460007*^9, 3.435422597696198*^9, 
   3.435422790795402*^9, 3.435423583905724*^9, 3.435423724436681*^9, 
   3.4354240430170717`*^9, 3.43542425419147*^9, 3.457690922531358*^9, 
   3.45769290654318*^9, {3.457710597408039*^9, 3.45771062188163*^9}, 
   3.466770581019473*^9, 3.466793442734029*^9, {3.466852697287552*^9, 
   3.466852725127425*^9}, {3.46685365461147*^9, 3.46685366815838*^9}, 
   3.466854891120466*^9, 3.466856463808853*^9, 3.466950640158692*^9, 
   3.466950793204998*^9, 3.4669509779096193`*^9, 3.466951253119183*^9, 
   3.466951728851307*^9, 3.4669522830971823`*^9, 3.4669528252555323`*^9, 
   3.466958986725794*^9, 3.466960318528307*^9, 3.466960749901307*^9, 
   3.466961327430833*^9, 3.466964690590335*^9, 3.467033544262871*^9, 
   3.4670340597652807`*^9, 3.467034846771422*^9, 3.4670491443247843`*^9, 
   3.467049824614612*^9, 3.467049884965107*^9, 3.46705028348386*^9, 
   3.467050614076709*^9, 3.467051567004361*^9, 3.467131110517221*^9, 
   3.46713115704571*^9, 3.4671316128336887`*^9, 3.46739103438384*^9, {
   3.467391857212055*^9, 3.467391865857123*^9}, 3.4673920419817123`*^9, {
   3.467393325177964*^9, 3.467393334572611*^9}, 3.4673933698808804`*^9, 
   3.467393888926437*^9, 3.46739639972268*^9, 3.467396709778988*^9, 
   3.467397416667294*^9, 3.4673977774549932`*^9, 3.467399247731529*^9, 
   3.467399376886923*^9, {3.467400220890757*^9, 3.467400225506568*^9}, 
   3.46740196490005*^9, 3.4674022693160057`*^9, 3.4674033112627563`*^9, 
   3.4674586068305817`*^9, 3.467458855601264*^9, 3.467460880345216*^9, {
   3.467460934556673*^9, 3.467460950453432*^9}, 3.467461016269969*^9, 
   3.4674611599755287`*^9, {3.4674612457935963`*^9, 3.467461292682378*^9}, 
   3.4674614693992023`*^9, 3.467462288890129*^9, 3.4674623323434896`*^9, 
   3.4674623951668587`*^9, 3.467464343041556*^9, 3.467467137461046*^9, 
   3.467478605672412*^9, 3.467479591017424*^9, 3.467480320235594*^9, 
   3.4674804496495256`*^9, 3.4674807967478533`*^9, 3.467480828818522*^9, 
   3.4674828129680023`*^9, 3.4674830569705353`*^9, 3.4674834878610277`*^9, 
   3.467483523222706*^9, 3.4674835701919327`*^9, 3.4674836894765997`*^9, {
   3.467579269185773*^9, 3.467579321715527*^9}, 3.467579473565802*^9, 
   3.467580673215955*^9, 3.467581507907982*^9, 3.467581546305722*^9, 
   3.467582744731979*^9, 3.467583055257756*^9, 3.467583090184332*^9, 
   3.467583478606579*^9, 3.4675840834407873`*^9, 3.467584148578239*^9, 
   3.4675842514790983`*^9, 3.46758432185963*^9, 3.4675844762485456`*^9, {
   3.467584611428028*^9, 3.467584639516877*^9}, {3.4675846777013273`*^9, 
   3.467584699566875*^9}, 3.467584730609425*^9, 3.467584808190826*^9, 
   3.467632232186233*^9, 3.467632367887401*^9, {3.467632433268859*^9, 
   3.467632476044342*^9}, 3.46763253278426*^9, 3.46765252867439*^9, 
   3.4685901213643017`*^9, 3.468593541280244*^9, 3.468593954272146*^9, 
   3.4685944533981867`*^9, {3.468594514717662*^9, 3.4685945397580967`*^9}, 
   3.4685946705034924`*^9, 3.468594719553852*^9, 3.4686737376388903`*^9, 
   3.468673801198419*^9, 3.468673836551804*^9, 3.468673955450479*^9, 
   3.468675314131731*^9, 3.468678415067438*^9, 3.4686785370629*^9, {
   3.468678766637308*^9, 3.468678782275749*^9}, 3.46919324716333*^9, 
   3.469193411768434*^9, 3.469193720481531*^9, 3.469193763274591*^9, 
   3.4691938239938917`*^9, 3.4691940308287697`*^9, 3.469479981356893*^9, 
   3.469480040764833*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Loads", "[", 
   RowBox[{"dactyl", ",", 
    RowBox[{"Coordinates", "\[Rule]", "Global"}]}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.434118635441654*^9, 3.434118641222836*^9}, {
  3.4342755731600637`*^9, 3.434275583590617*^9}, {3.4670352271761723`*^9, 
  3.467035229383644*^9}, {3.467035321044684*^9, 3.467035370387512*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.467049144369076*^9, 3.467049824696203*^9, 3.467049884992894*^9, 
   3.467050283525928*^9, 3.467050614102335*^9, 3.467051567037212*^9, 
   3.467131110617284*^9, 3.467131157112112*^9, 3.467131612905282*^9, 
   3.467391034491617*^9, {3.467391857395657*^9, 3.467391865878669*^9}, 
   3.467392042015276*^9, {3.467393325400866*^9, 3.4673933346218643`*^9}, 
   3.467393369886737*^9, 3.46739388896014*^9, 3.4673963997678137`*^9, 
   3.4673967098453217`*^9, 3.467397416696292*^9, 3.4673977775013227`*^9, 
   3.467399247783388*^9, 3.467399376920022*^9, {3.4674002209711437`*^9, 
   3.4674002255402937`*^9}, 3.467401964999112*^9, 3.467402269498292*^9, 
   3.467403311308318*^9, 3.467458606874577*^9, 3.4674588556415453`*^9, 
   3.467460880395355*^9, {3.467460934606966*^9, 3.467460950486367*^9}, 
   3.4674610163030643`*^9, 3.467461160004612*^9, {3.467461245842759*^9, 
   3.4674612927275333`*^9}, 3.467461469433198*^9, 3.4674622889439898`*^9, 
   3.467462332475205*^9, 3.467462395216113*^9, 3.467464343125599*^9, 
   3.467467137555756*^9, 3.4674786058129787`*^9, 3.467479591050356*^9, 
   3.4674803202714663`*^9, 3.467480449699493*^9, 3.467480796796582*^9, 
   3.467480828859511*^9, 3.467482813014887*^9, 3.467483057042631*^9, 
   3.4674834879430027`*^9, 3.467483523260129*^9, 3.467483570197598*^9, 
   3.46748368952372*^9, {3.467579269238365*^9, 3.467579321739561*^9}, 
   3.46757947360534*^9, 3.467580673248712*^9, 3.467581507941317*^9, 
   3.4675815463478193`*^9, 3.467582744764962*^9, 3.467583055288569*^9, 
   3.4675830902191467`*^9, 3.467583478640696*^9, 3.467584083474903*^9, 
   3.467584148611475*^9, 3.467584251513694*^9, 3.467584321907454*^9, 
   3.467584476285782*^9, {3.4675846114764023`*^9, 3.467584639550186*^9}, {
   3.467584677748955*^9, 3.467584699600174*^9}, 3.46758473064297*^9, 
   3.467584808223666*^9, 3.467632232265585*^9, 3.46763236793106*^9, {
   3.467632433401367*^9, 3.4676324760880136`*^9}, 3.46763253282615*^9, 
   3.467652528724914*^9, 3.468590121426283*^9, 3.468593541312786*^9, 
   3.468593954317643*^9, 3.4685944534617863`*^9, {3.46859451480466*^9, 
   3.468594539827993*^9}, 3.4685946705351152`*^9, 3.46859471956562*^9, 
   3.468673737685843*^9, 3.4686738013068647`*^9, 3.4686738366690683`*^9, 
   3.468673955514727*^9, 3.468675314226194*^9, 3.468678415111189*^9, 
   3.468678537191201*^9, {3.468678766685223*^9, 3.468678782301807*^9}, 
   3.4691932472002687`*^9, 3.4691934119794493`*^9, 3.469193720529718*^9, 
   3.469193763321041*^9, 3.469193824040325*^9, 3.4691940308763247`*^9, 
   3.4694799813905067`*^9, 3.469480040814184*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"Loads", "[", 
     RowBox[{"carpus", ",", 
      RowBox[{"Coordinates", "\[Rule]", "Global"}]}], "]"}], ")"}], "/.", 
   "sol"}], "/.", 
  RowBox[{"{", 
   RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}]], "Input",
 CellChangeTimes->{
  3.434118641750947*^9, 3.434118813446292*^9, {3.434119118915028*^9, 
   3.4341191346436357`*^9}, 3.4341201261808233`*^9, {3.4341201650940332`*^9, 
   3.434120170698142*^9}, 3.4341202878648043`*^9, 3.4341208389762897`*^9, 
   3.434121039927581*^9, 3.434121277125565*^9, {3.434121353359943*^9, 
   3.434121368404491*^9}, 3.434122223008933*^9, 3.434123213298698*^9, 
   3.434123443575158*^9, 3.43412503471758*^9, 3.4341250830105743`*^9, 
   3.4341251217441*^9, 3.434125226563201*^9, 3.4341324495748453`*^9, 
   3.434133258327765*^9, 3.434133289062429*^9, 3.434133385503139*^9, 
   3.434198786619525*^9, 3.434230104470717*^9, 3.434230940131365*^9, 
   3.434274345279913*^9, 3.434274426063694*^9, {3.4342755554656076`*^9, 
   3.434275584129908*^9}, 3.4342811774507523`*^9, 3.434281393787081*^9, 
   3.435344654617053*^9, 3.43542259773344*^9, 3.435422790863158*^9, 
   3.435423583948803*^9, 3.435423724469688*^9, 3.435424043062779*^9, 
   3.435424254225328*^9, 3.4576909225464354`*^9, 3.4576929065866632`*^9, {
   3.4577105974431458`*^9, 3.457710621963805*^9}, 3.466770581055414*^9, 
   3.466793442771776*^9, {3.4668526974021387`*^9, 3.46685272518417*^9}, {
   3.466853654653673*^9, 3.466853668206661*^9}, 3.4668548911704397`*^9, 
   3.466856463864398*^9, 3.466950640238985*^9, 3.46695079331633*^9, 
   3.466950977984675*^9, 3.466951253162499*^9, 3.466951728951418*^9, 
   3.466952283141458*^9, 3.466952825307151*^9, 3.4669589867752028`*^9, 
   3.4669603187379513`*^9, 3.466960749935206*^9, 3.466961327512342*^9, 
   3.46696469063351*^9, 3.467033544362871*^9, 3.467034059830654*^9, 
   3.4670348468590317`*^9, 3.4670352308083363`*^9, {3.467035332836403*^9, 
   3.467035370812681*^9}, {3.46703540238278*^9, 3.467035471709215*^9}, {
   3.467035576804089*^9, 3.467035596357657*^9}, {3.467035735435442*^9, 
   3.467035735786414*^9}, {3.467035814054837*^9, 3.467035815326768*^9}, {
   3.4670358688102913`*^9, 3.467035869481512*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.467035409975294*^9, 3.467035472467094*^9}, {
   3.467035582134354*^9, 3.467035597432651*^9}, 3.467035738081585*^9, 
   3.467035816076559*^9, 3.467035870338977*^9, 3.4670491444689302`*^9, 
   3.467049824731453*^9, 3.46704988502817*^9, 3.46705028355765*^9, 
   3.4670506141426973`*^9, 3.4670515670915413`*^9, 3.467131110650003*^9, 
   3.467131157178784*^9, 3.467131613116197*^9, 3.4673910346173363`*^9, {
   3.467391857471117*^9, 3.4673918659140167`*^9}, 3.467392042082109*^9, {
   3.467393325445889*^9, 3.4673933346720867`*^9}, 3.4673933699470177`*^9, 
   3.467393889014449*^9, 3.467396399826268*^9, 3.467396709878937*^9, 
   3.467397416751007*^9, 3.467397777550715*^9, 3.4673992478343763`*^9, 
   3.467399376975793*^9, {3.467400221014626*^9, 3.467400225594651*^9}, 
   3.467401965047556*^9, 3.4674022695507174`*^9, 3.467403311362626*^9, 
   3.467458606908091*^9, 3.467458855676762*^9, 3.467460880445528*^9, {
   3.467460934657359*^9, 3.467460950536252*^9}, 3.46746101635773*^9, 
   3.467461160058585*^9, {3.467461245967545*^9, 3.467461292782968*^9}, 
   3.4674614694958267`*^9, 3.467462288994947*^9, 3.467462332569416*^9, 
   3.467462395301447*^9, 3.467464343165485*^9, 3.467467137620482*^9, 
   3.467478605849162*^9, 3.4674795910975533`*^9, 3.46748032032535*^9, 
   3.467480449749506*^9, 3.467480796848833*^9, 3.4674808289131737`*^9, 
   3.467482813067923*^9, 3.467483057108829*^9, 3.4674834880329533`*^9, 
   3.467483523332652*^9, 3.467483570276889*^9, 3.4674836897364597`*^9, {
   3.467579269270226*^9, 3.467579321782433*^9}, 3.467579473638084*^9, 
   3.467580673282584*^9, 3.467581507972975*^9, 3.4675815465096607`*^9, 
   3.467582744850507*^9, 3.4675830553232317`*^9, 3.467583090305406*^9, 
   3.467583478741733*^9, 3.467584083508204*^9, 3.467584148796073*^9, 
   3.4675842515626793`*^9, 3.46758432193908*^9, 3.46758447631485*^9, {
   3.467584611515469*^9, 3.4675846397230663`*^9}, {3.467584677820321*^9, 
   3.4675846996828003`*^9}, 3.4675847307365417`*^9, 3.4675848082605553`*^9, 
   3.467632232308858*^9, 3.467632368014525*^9, {3.46763243345881*^9, 
   3.467632476220125*^9}, 3.4676325328580112`*^9, 3.467652528808927*^9, 
   3.468590121596936*^9, 3.468593541346487*^9, 3.46859395436694*^9, 
   3.468594453522937*^9, {3.468594514841934*^9, 3.468594539859765*^9}, 
   3.468594670577566*^9, 3.4685947196057243`*^9, 3.46867373773545*^9, 
   3.4686738013713217`*^9, 3.468673836723213*^9, 3.468673955564889*^9, 
   3.4686753142763777`*^9, 3.4686784152572412`*^9, 3.4686785372521667`*^9, {
   3.468678766722197*^9, 3.4686787823715353`*^9}, 3.469193247271989*^9, 
   3.469193412064856*^9, 3.4691937208144293`*^9, 3.469193763403307*^9, 
   3.469193824233758*^9, 3.469194030942752*^9, 3.469479981459847*^9, 
   3.469480040884811*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Draw bodies", "Subsection",
 CellChangeTimes->{{3.433850755113895*^9, 3.43385077884853*^9}, {
   3.4338509422244577`*^9, 3.4338509735207043`*^9}, 3.433851681158257*^9, 
   3.43411931361473*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"graph", " ", "=", " ", 
    RowBox[{"Graphics", "[", 
     RowBox[{
      RowBox[{"{", "\n", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "]"}], ",", " ", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"ground", ",", " ", "0", ",", " ", "1"}], "]"}], ",", 
            " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}], ",", " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}]}], "]"}]}], "}"}], ",", " ", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", " ", "0.5", ",", " ", "0.5"}], "]"}], ",", " ", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"mV", ",", " ", "0", ",", " ", "1"}], "]"}], ",", " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}], ",", " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}]}], "]"}]}], "}"}], ",", " ", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "]"}], ",", " ", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"carpus", ",", " ", "0", ",", " ", "1"}], "]"}], ",", 
            " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}], ",", " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}]}], "]"}]}], "}"}], ",", " ", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "]"}], ",", " ", 
          RowBox[{"Bar", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"dactyl", ",", " ", "0", ",", " ", "1"}], "]"}], ",", 
            " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}], ",", " ", 
            RowBox[{"sL", "/", 
             RowBox[{"10", "^", "4"}]}]}], "]"}]}], "}"}]}], "}"}], ",", " ", 
      "\n", 
      RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
      RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", 
      RowBox[{"GridLines", " ", "->", " ", "Automatic"}]}], "]"}]}], ";"}], 
  " "}]], "Code",
 CellChangeTimes->{{3.433851035046337*^9, 3.433851061655987*^9}, {
   3.433851516335149*^9, 3.433851597315585*^9}, {3.433851659336302*^9, 
   3.433851702498908*^9}, {3.4338517389721537`*^9, 3.433851743666876*^9}, {
   3.433851909847933*^9, 3.43385195935106*^9}, {3.433852097272633*^9, 
   3.433852113662279*^9}, {3.433852208970933*^9, 3.433852289948728*^9}, {
   3.4338523611892757`*^9, 3.433852382005128*^9}, {3.4338525019315434`*^9, 
   3.433852505611454*^9}, {3.433852548519116*^9, 3.433852567118351*^9}, {
   3.433853890206346*^9, 3.433853914108988*^9}, {3.4341037960587893`*^9, 
   3.434103826970894*^9}, {3.434110952909773*^9, 3.434110960037702*^9}, 
   3.434119313614814*^9, {3.434120488069234*^9, 3.4341204914729853`*^9}, {
   3.434120522845957*^9, 3.434120547998445*^9}, {3.4341208510142612`*^9, 
   3.434120853126833*^9}, {3.434131908505118*^9, 3.4341319107243853`*^9}, {
   3.43413333182621*^9, 3.434133374954295*^9}, {3.434133409398223*^9, 
   3.434133412020389*^9}, {3.434278459898829*^9, 3.434278470472405*^9}, {
   3.4342808828956823`*^9, 3.4342809038014708`*^9}, 3.434281151880027*^9, {
   3.434281190257429*^9, 3.434281253436264*^9}, {3.435422655738117*^9, 
   3.435422676049094*^9}, {3.466951994552917*^9, 3.466952050250649*^9}, {
   3.466952580592043*^9, 3.466952650220008*^9}}],

Cell[CellGroupData[{

Cell[BoxData["EY"], "Input",
 CellChangeTimes->{{3.469194223511777*^9, 3.4691942557273197`*^9}, {
  3.4691943266943398`*^9, 3.4691943362991457`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.25555139767997387`"}], "-", 
  RowBox[{"0.28809860271960464`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.4691942436434507`*^9, 3.469194256447839*^9}, {
   3.469194328779323*^9, 3.4691943367396927`*^9}, 3.469479981551126*^9, 
   3.469480041007525*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"graph", "/.", 
   RowBox[{"(", 
    RowBox[{"sol", "/.", 
     RowBox[{"{", 
      RowBox[{"T", "\[Rule]", 
       RowBox[{"0", "*", "simDuration"}]}], "}"}]}], ")"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.434125013031344*^9, 3.434125025848744*^9}, {
   3.43413249457974*^9, 3.434132494841449*^9}, {3.435422729201329*^9, 
   3.435422738764339*^9}, {3.4354227727768383`*^9, 3.4354228015733643`*^9}, 
   3.435424092121784*^9, {3.466950822925769*^9, 3.466950835375016*^9}, {
   3.466951374922351*^9, 3.466951375254891*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0, 0, 1], 
    PolygonBox[{{-0.02222222222222222, 0.}, {0.02222222222222222, 0.}, {
     0.02222222222222222, 1.}, {-0.02222222222222222, 1.}}]}, 
   {RGBColor[0, 0.5, 0.5], 
    PolygonBox[
     NCache[{{Complex[-0.012746143030023246`, 0.], Complex[
        0.01820337876197759, 0.]}, {
       Complex[0.012746143030023246`, 0.], 
        Complex[-0.01820337876197759, 0.]}, {
       Complex[0.4223221651745191, 0.], Complex[0.2685848394135455, 0.]}, {
       Complex[0.3968298791144726, 0.], Complex[
        0.30499159693750066`, 0.]}}, {{-0.012746143030023246`, 
      0.01820337876197759}, {0.012746143030023246`, -0.01820337876197759}, {
      0.4223221651745191, 0.2685848394135455}, {0.3968298791144726, 
      0.30499159693750066`}}]]}, 
   {RGBColor[1, 0, 0], 
    PolygonBox[
     NCache[{{Complex[0.3991398293369211, 0.], Complex[
        0.30640741897924983`, 0.]}, {
       Complex[0.4200122149520706, 0.], Complex[0.2671690173717963, 0.]}, {
       Complex[0.5671562209800212, 0.], Complex[0.34544046342860707`, 0.]}, {
       Complex[0.5462838353648716, 0.], Complex[0.3846788650360606, 0.]}}, {{
      0.3991398293369211, 0.30640741897924983`}, {0.4200122149520706, 
      0.2671690173717963}, {0.5671562209800212, 0.34544046342860707`}, {
      0.5462838353648716, 0.3846788650360606}}]]}, 
   {RGBColor[0, 1, 0], 
    PolygonBox[{{
      Complex[-0.1672875101684773, 0.28921464086206145`], 
       Complex[-0.2736293848751571, -0.2977018894769248]}, {
      Complex[-0.13007050808376933`, 0.27055563177418657`], 
       Complex[-0.23747341048479065`, -0.2784953159622845]}, {
      Complex[-1.0339698678429308`, -0.20960870609182117`], Complex[
       0.6929516416329078, -0.7449705431591578]}, {
      Complex[-1.0711868699276388`, -0.19094969700394623`], Complex[
       0.6567956672425412, -0.7641771166737981]}}]}},
  AspectRatio->Automatic,
  Frame->True,
  GridLines->Automatic]], "Output",
 CellChangeTimes->{{3.434125026503313*^9, 3.434125035014036*^9}, 
   3.434125083065167*^9, 3.434125121878828*^9, 3.4341252266159763`*^9, 
   3.434132449625745*^9, 3.434132495366536*^9, {3.434133260615823*^9, 
   3.4341332891716623`*^9}, {3.434133385641191*^9, 3.434133415057557*^9}, 
   3.434198787188312*^9, 3.434229847023344*^9, 3.434230104552782*^9, 
   3.434230940194133*^9, 3.434274345397949*^9, 3.434274426165133*^9, 
   3.4342756087084627`*^9, 3.434276481883903*^9, 3.434278412233242*^9, 
   3.434278443721637*^9, 3.434278473972278*^9, {3.4342811837321777`*^9, 
   3.4342812008306713`*^9}, {3.434281231004424*^9, 3.434281255865986*^9}, 
   3.435344654667865*^9, 3.435422555783094*^9, 3.435422600195578*^9, 
   3.435422682443943*^9, {3.435422715459877*^9, 3.43542273920347*^9}, {
   3.4354227908969183`*^9, 3.4354228025272017`*^9}, 3.435422922639369*^9, 
   3.4354235840161448`*^9, 3.435423724502636*^9, 3.4354240431257257`*^9, {
   3.435424079127296*^9, 3.435424093344002*^9}, 3.435424254258587*^9, 
   3.45769092258116*^9, 3.45769290663089*^9, {3.457710597481278*^9, 
   3.457710622048114*^9}, 3.466770581088512*^9, 3.466793442827662*^9, {
   3.466852697457306*^9, 3.466852725234418*^9}, 3.46685298427073*^9, {
   3.466853654685862*^9, 3.466853668273325*^9}, 3.466854891220977*^9, 
   3.466856463913335*^9, 3.4669506710853233`*^9, 3.466950723951488*^9, {
   3.4669507933626623`*^9, 3.466950836262589*^9}, 3.466950978035008*^9, 
   3.466951253213427*^9, 3.466951375992813*^9, 3.4669517291077137`*^9, 
   3.466952283244193*^9, {3.466952583994829*^9, 3.4669526522987843`*^9}, 
   3.466952825578519*^9, 3.4669589868525543`*^9, 3.466960318785965*^9, 
   3.466960750138083*^9, 3.466961327563445*^9, 3.466964690709256*^9, 
   3.467033544403947*^9, 3.4670340599498777`*^9, 3.467049144726851*^9, 
   3.467049824828927*^9, 3.467049885189423*^9, 3.467050283619212*^9, 
   3.4670506141831827`*^9, 3.4670515671670523`*^9, 3.4671311107498207`*^9, 
   3.4671311572886543`*^9, 3.467131613156681*^9, 3.4673910347872972`*^9, {
   3.46739185754683*^9, 3.467391865947178*^9}, 3.467392042138721*^9, {
   3.4673933255070744`*^9, 3.4673933347349243`*^9}, 3.46739337002562*^9, 
   3.467393889110551*^9, 3.467396709939745*^9, 3.467397416809844*^9, 
   3.467397777623993*^9, 3.467399247891157*^9, 3.467399377100093*^9, {
   3.4674002210642*^9, 3.46740022566774*^9}, 3.467401965137147*^9, 
   3.467402269616593*^9, 3.467403311557094*^9, 3.4674586069921427`*^9, 
   3.467458855743466*^9, 3.467460880520277*^9, {3.467460934731501*^9, 
   3.467460950614855*^9}, 3.467461016431883*^9, 3.467461160118207*^9, {
   3.467461246020955*^9, 3.467461292843943*^9}, 3.4674614695798397`*^9, 
   3.467462289068758*^9, 3.467462332639741*^9, 3.467462395441238*^9, 
   3.467464343236817*^9, 3.467467137673253*^9, 3.467478605975456*^9, 
   3.467479591150755*^9, 3.467480320388381*^9, 3.467480449810114*^9, 
   3.467480796899502*^9, 3.467480828990355*^9, 3.467482813159204*^9, 
   3.467483057203451*^9, 3.467483488130415*^9, 3.467483523606168*^9, 
   3.467483570429237*^9, 3.467483689756297*^9, {3.4675792694052143`*^9, 
   3.467579321841647*^9}, 3.467579473671015*^9, 3.4675806734053917`*^9, 
   3.4675815080127573`*^9, 3.467581546614682*^9, 3.467582745066062*^9, 
   3.467583055491577*^9, 3.4675830904404573`*^9, 3.4675834788741493`*^9, 
   3.467584083549492*^9, 3.467584148889297*^9, 3.467584251650515*^9, 
   3.467584322107294*^9, 3.4675844763599567`*^9, {3.467584611626589*^9, 
   3.467584639773808*^9}, {3.467584678001502*^9, 3.467584699742049*^9}, 
   3.467584730945074*^9, 3.467584808408966*^9, 3.467632232349586*^9, {
   3.467632368115657*^9, 3.4676323762698603`*^9}, {3.467632433503112*^9, 
   3.467632476270399*^9}, 3.467632532901692*^9, 3.467652528941022*^9, 
   3.468590121636739*^9, 3.468593541396022*^9, 3.468593954588543*^9, 
   3.468594453639963*^9, {3.468594514920117*^9, 3.4685945399412727`*^9}, 
   3.468594670855197*^9, 3.4685947196785107`*^9, 3.46867373784505*^9, 
   3.46867380150825*^9, 3.46867383681542*^9, 3.4686739556882267`*^9, 
   3.468675314339357*^9, 3.468678415325189*^9, 3.468678537308135*^9, {
   3.4686787668670273`*^9, 3.468678782431592*^9}, {3.469193247347808*^9, 
   3.469193267312065*^9}, 3.469193412170075*^9, 3.469193721179974*^9, 
   3.46919376367579*^9, 3.4691938243895607`*^9, 3.4691940325073013`*^9, 
   3.469479981590506*^9, 3.469480041057569*^9}]
}, Open  ]],

Cell["\<\
numPlot = 10; GraphicsGrid[{graph /. (sol /. Table[{T -> i}, {i, 0, \
simDuration, simDuration/numPlot}] )}]\
\>", "Text",
 CellChangeTimes->{{3.434124376451707*^9, 3.434124386825943*^9}, 
   3.434124427536449*^9, {3.43412447984899*^9, 3.434124504827565*^9}, 
   3.434124649848199*^9, {3.4342746652315617`*^9, 3.4342746864441423`*^9}, {
   3.435422937148481*^9, 3.435422937794631*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"graph", " ", "/.", " ", 
     RowBox[{"(", 
      RowBox[{"sol", " ", "/.", " ", 
       RowBox[{"{", 
        RowBox[{"T", " ", "->", " ", "i"}], "}"}]}], ")"}]}], "]"}], ",", " ",
    
   RowBox[{"{", 
    RowBox[{"i", ",", " ", "0", ",", " ", "simDuration", ",", " ", ".1"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4341248439117002`*^9, 3.434124867644124*^9}, {
  3.43412497373147*^9, 3.434124980391782*^9}, {3.4341252569537973`*^9, 
  3.434125312402038*^9}, {3.466952750922741*^9, 3.4669527520700293`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`i$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`i$$], 0, 4, 0.1}}, Typeset`size$$ = {
    153.0625, {3., 10.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`i$4143$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`i$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`i$$, $CellContext`i$4143$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ReplaceAll[$CellContext`graph, 
         ReplaceAll[$CellContext`sol, {$CellContext`T -> $CellContext`i$$}]]],
       "Specifications" :> {{$CellContext`i$$, 0, 4, 0.1, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{397.5, {45.5, 52.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.467632282092537*^9, 3.467632289434656*^9}, {
   3.467632368131341*^9, 3.467632387979694*^9}, {3.467632433517963*^9, 
   3.467632476292088*^9}, {3.467632532916585*^9, 3.4676325390966263`*^9}, 
   3.467652528958734*^9, {3.468590121654941*^9, 3.4685901308507767`*^9}, 
   3.46859354141733*^9, 3.4685939546030912`*^9, 3.46859445365797*^9, {
   3.468594514941457*^9, 3.46859453996314*^9}, 3.4685946709165916`*^9, 
   3.468594719804225*^9, 3.4685974560697203`*^9, 3.4686724574589243`*^9, {
   3.468673738031474*^9, 3.46867374888901*^9}, {3.468673801560495*^9, 
   3.4686738481021357`*^9}, {3.469193285847353*^9, 3.469193302340022*^9}, {
   3.469193412215485*^9, 3.46919344141525*^9}, {3.469193721298856*^9, 
   3.469193729240548*^9}, {3.4691937637224207`*^9, 3.4691937704774427`*^9}, 
   3.469193824617566*^9, 3.469194037998803*^9, 3.469451933613953*^9, {
   3.469479992331285*^9, 3.4694799980033627`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Graph results", "Subsection",
 CellChangeTimes->{{3.434122912094719*^9, 3.434122914413233*^9}, {
  3.4343018107259912`*^9, 3.4343018122138433`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"springMoment", "/.", "sol"}], ")"}], ",", 
     RowBox[{"T", "*", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.435423473601293*^9, 3.435423489896106*^9}, 3.4673930927006598`*^9, {
   3.4673932960456343`*^9, 3.4673932965292473`*^9}, {3.467398011728251*^9, 
   3.467398017717256*^9}, {3.4673992536163387`*^9, 3.467399268487191*^9}, {
   3.4673994779461927`*^9, 3.4673995238052473`*^9}, {3.4674798134689217`*^9, 
   3.467479856263836*^9}, {3.467480335030034*^9, 3.4674803366969957`*^9}, {
   3.467581115472666*^9, 3.467581126064686*^9}, {3.467582379795638*^9, 
   3.467582415621159*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4Vc8bAPBzyRK5smcp2RM5l4iEmYuSfRclawlJ2Qot0q5QfskXyRKF
kGQrhSlb2YmypiRbtizJdv2mv+7zeZ4zc+a+7zvvmZFwO211nIkgCDsKQfz7
NTo+2obGgnSsvqexTlnQ0QY9kTMDwjYg9pRr3iT27pT4pELhY2DDsby0Cewh
Menwc7K+INTm+o9xbOOmLy8fCQeCpuZR/1Fs6citT9bFQ0Cn2xfzn9irRu7/
ucpeAt6pFqHfscevdVS7xoUDdyGb2T7sQ8cWy/8nfA0kHPpe+gW7Wk+ktCrp
BhicWaxvw6ZJab+YF48AQgH/KTRgJzG5ZMuk3wFU38ruKmz2wSuP7WSjQZrf
6c432GXf2puqbO6BTK7MbYXYZyyOGTnGxYCM9x7F2dj95E29KOFYIOEb0hCL
HZuyBckceQDYlRuMIrCNuJ9pVSTFAVpjmtBF7JKpRrVp8QRAMvoS3LB9nJxe
3nRNBBV+uuY22JLN00rb0x8CzgR5q/3Y0Xm8Oyxlk8EWj2Aog71/a0bG2IkU
4Fver8CPfak2cfM7m1RQpICOMWGr7lGMcohLA449ixV95nSUKmB+47ZwBhjY
wSMQgX2+6b9qu7IMoDYFfPyx7a5/Y5I68gSUiA5tPoK9acEv7E3SU9D367Lu
TuzgjtjgCfFssPhh6AAyoyPryP6SVygbzFbd2ZiBraQvu3DN9RloqEgQvok9
VFjqtzU9B+z+MihhjG15v8fbTPY5KLg1215vSkeKxlLZInXPwcngRCIbm53Z
Z2T4RD7Qep5w/ga282tGQaXNC7CfO84BYAvI31OyjysArNOXirNM6CicvVAu
QrgIpA/JjzsY09FOg5hbL88Ugag3hqLy2O3XT4/11hWBCRuL0EUjXD/MijlK
Z4vBa7/+dzHYtWsZSh3tJSDLJ+zsW0P8f+fi1MQjX4NMx3f+4wZ0VKwcFHfw
x2sgXF8flovtdMZ60U+zDPwu9C07hZ0/yf26erQM2J4IfDV5gI6sRm9pee9/
Czz3rH7+sZ+O4vtD9YoZFeBhv2dilh4d0cUcMr7aVoKO7+xhR7HHD6uzsOdV
gvwDf+/xYG+bCHHP24WAoGKB1jldOjrttUeG6EPgorF0oQadjniP5Wc90XgP
4mI/CMbq0JG9Q1r+zO9qYORnHZOrQUfTvTYcj0VqQL3MxU5T7BtO7Met9WoA
3ylr1yl1Oip0Py1SElsD1KenzHdhU321r59XrwXOLrq3HqvRUc2V7sOsF+tA
x7izi7cKHank8rCKsdcDZo43t04r0NFHpRqXJlo98JiKK13aSUcuBcFvLjnU
Awt2911XsaNKBs58f1YP3J+8nLwvT0ejKK/3qWkDcKSEoVw5OkruNCxQvt8I
3ssezH4jRUec6+GOBttawA3prKNmojheXoecFA+0AOZKCelqEZyvDkUXHt8W
UKA2q74XWyf7i3tveQs4znHJQEKYjl5nxxWXKrWC5tgoljFBOpq0nnhr3NwK
rM/k/rXjpSPbrP8aArjaQaZyS0QuO97fR6+YeEi0g66EyClO7EHeU032au2g
0KIxxZsNx/uibov20XawVFI6IsNKRxFWk+1see1gYd/TTbHMdFS+qtvz0OQT
GDvvlWHGgEjGcmq06k4H8JYCvVpzEImEGWieSOsAP7zm1c7OQrQ5L/UOR2kH
eBoU8Pb5b4iW2a2VLAc7gM7mPJOtMxC1otKArxqdQPiVRMjMBEShtHDG35+d
oIQld9l3GKJmbn5+JfgFmHmed2zsguhc814QP98NaiX3TbG+gYiqVPzzI3sP
SJV1axMtgygjiha5ItYDLg+vL5GvIWozket22t8Dvq7cFLUrhUihgT9AJq4H
TMnJpCQUQjRQN/30pXovMIPed9ZyIDJ494TaFNoH7g737N2bBJFQEc9XCmUA
fNl4bP1SKEQlg3qNLVqD4LbmhwVrOYjeez8SdZgYAj1dCs+S7wG0IKvNnXdq
BIRZdUo11OkgpqWczaIy40DdviN+S6c22rPuUmL9fAJUDpmEOvdpocZrqs21
O6cBc33vdEznPiR+79dS9tQMaKj1n2N5qol+LQ587aTNAu3tdg0cF/eijPE3
9dToORCizTatoayBqFszp4eG5oFHzZbk3JE9KNKr2CNV+g8YNY9OtS9VQ39g
zpBn2CKY17m7oB+sigJVqosEq/6CJFvOu3tddqOB59V32iSWgaAW37tAExXU
OrlhQkVuGUh+s3O8dFAFIcX9JrGKy4D55LDKbX0VlPqsZtMh9WWQyxiPz9JS
QW5Pa6P6TJZBbUpcCLFLBQ0/+nB35Nwy4OvpFdhGVUGTkY3315qWwasSnTWx
dmW04t3xUD50BZj6e5+PcVVGNnuOxiiFrYDEY1o+fk7KKJcyfGP3tRUg2dyc
Y31EGTnFL/ppR6+AHnlOMXFbZfSuRuSg5eMVUPf37WDbQWV0c7vrfHD9CrB5
2CeURVNGfJ8nTT6IrAJX+Y//iTMpI5+0s7pN4qtAc97tlfE6DVX7rKu3S68C
cTNfs9BVGjrLzCPVp7QK1v90HR/4Q0PdNNWlad1V8EZ2ivLhFw2l3Al9InRy
FZzYHt2x+TMNKdDZGB5vVsFm7X3xN3Np6MWzHLkutAquWZdXNGfTkCq/haVh
7Sqoc+qY3JJJQ1oj8RkKbavg84V075I0GjKL2mk8M7wK2v7ME4L/0ZB/t2l8
CO8a4PnWX+B5hYZe+8WqRHqtgenBJmHvIzSk06vhuOa7Bp43sUkKONDQe/3+
676Ba2DTzo+2VXY0VC8k220RtgZ8/jrqyVvRUF95aZjAgzWgqSxtLmpIQwRH
b2MyWgONOpwT8eo0ZPBY4kSBEAPw7OCyIoTweuOpsrViDJBoLiq1W4CGtkev
DPVIMACHe0uLJx8NLYd0um1QZIAmQ0ZFHzcN5VlGOB2CDHBr5JbsKDsN8VF+
2655MkDlI6VOgUUSEYv9/Ly+DHB5qD20a45EExP1n2QDGCAyr2EkdYZEtV0Z
lhYXGWD+BKuo3jiJQl7Ym6bHMID8aMFaYz+JBpyRvmEZA1R4+Pgs1pCo0TaP
2amSAXzK1cYFq0j0yjjxvX81fl7sipYWItH/1ANhUjMDgPvTrvFlJNrPvUNr
ehDP36ZUF5dPopyKu7sfcK6DfYMfC3MTSXRuq7Pkd8d1YFO97GsYRCI3C5pd
n+s6OKe19y0tgERmVym3v3isA/sxxqutfiSSHUv/3XRmHVgGsrxnP0WijqJR
VHZtHbDZHNgidZxENBN/59jcdXDLtYXNy45EYmF69+8WrAMBZ0/PHBsSsb3k
r7tdgsf3b7swZ0Wir0KlSuFoHTRMfSyPNSdR5I+VtVMd6+CVt/MLUUMSjYZe
TzJYXQdBk5XX9mmTaNxOwTONIKATuUWlex+JXGb4mMSZCfhDWzrugiaJjKV+
qomwE7DCWvtqhzqJJCNuPtrMS8DUE2WLH1RIFC95Rj2an4AWfH9dYpVJRH1r
38YpRMDYgqIrx2kkWpqSZ2ETI2Cn/b2ZLUokarVp9FmTIeC5wqPnauVJdGCq
iPX8DgKef+v+EO0g0dubj1L/7iRgwnO+YCRHoswy3445koCHDmofbpMh0aXt
PFrjewmoIm/8Wl2SRPOvlzpPaBHQzUo10VmCRN7Wg6d/6hCQ6uCsHLWdRLY3
CtO/6RGQa+lA+NI2EilO2HJ+MSXg2OGZZEExnG8bk8rbFgT0W5tbOCpKIr1y
3QAdawJuf8zBnCtCosPRZO8TewKy5Y5oOwqTaPiPzF2HIwQ08h3zrthCIn9n
MT0uJwLWTgSayGFH0DbmBLoT8FpXigKXEIn4E9addngQsPVx6I7bgiRKpfzh
7fMkoM8P2y4ubEXvidq7JwnYe7BFM14Ar6d9MFTPl4AZ4dfM5bH193UrLZ4h
oLEWn+A7fhK1pLcMPgsgoJ2ccLQz9nDgWyPeEAJmH6TEvODD6+l/yag5T8D1
3m2i7thr+7Nfhlwi4EeHnbZi2Leep3jsCifg/8680+njxesTihP5fpWAfc3h
Xx5jp4ZFNsfeIKCS1EbxM9iKo1euHIwgIKfYAr8+9iuLkD2rdwi4dOLHq23Y
eq9Pj+dHE/BCsR8Hgd0s4ZHsHkNAsULtjaM8OH63Ha2EYgl4lPtn0Wfs4Vkr
1oY4Ar4PZuFqxPY/Ylh2KYGA7Y+0eD5gM6qAr0oSAXl27XhXjx2huEdyOJmA
GzqPi3Vg8z9Q/JyQhvOvf19yCDt1TfK2aQYBd8ynry5jK3oI61AyCSgflnVQ
GK+ntJl7tiibgNPu5do62LrqrE89c/H8nwZ7vP6tN2XVQSyfgHJrW8STsA+z
z3G1FhDwA6/Lxk7s4TNj764WETBK/1U8/7/4dg8EqZfieqqSaDz8L770z/K/
XhPwe0XS48x/8X3W2J/8loBpnvKiK9j8fFUxVpUEHJqpU7XF+Uo9/3o/63sC
6t8KnirGVhzKX3pdTUB7530GW//l3+Rp3qk6ApY83axzB1uvOMlVoh7HO/pv
2zr24RsRH2+1EPDOBkrTKq6f4amwi1rtBOSYk1C5juvN79BZ5ZkOAjbp29H4
cT3e2uGecKiHgJc6lub24/rlj3Ew5ewnYEqAV+kodsqSOaVygIDuGpPc/8P1
XlKv5SX7k4DqC8oX/uL9oLt799aeEQKeNZuLKsb7pemhfFvUOAHf3P1IC9lK
oiEfwb0L0wQsjCyW4RcnER/3DHv1MgH/oHsv4vH+bC+/fdNwjYDerL1dIVK4
n/rIsLasEzDgnMZLF2kS8dYfZu7ZQIF+xpOBQBb7es3aNJUC99SES9F34vG7
XS4E8VDgWb+scnMFPH5weXmZjwKT5dyZjimSiAfS/rIIU2DTdttbj3B/2byS
OCsqRYHVFr6nbXbjfpOt5pcmQ4FOdsEG91RJdM++dVp2BwUuqo7ItKuRiLuE
ZVJ5FwXWhXc+OKGB+5ffmREDdQr8WLptthP3x00j+/sCjClQjuS6Won7Z+OD
b4eXTCkwonWh1dYY91f9892XLPD7Mvjzf5uQiPPxi88RthQY/GFKUNOCRBxH
RdtSnClQgTbux3WIROyfZmoaAigwTSRzXznu7x/C7+hbnqXAr+f3/ck5gfNF
k636HEyBvxMnFVO9cH+PPoK+X6RAm4WMjQn4+8BqWFu2eJMCzczUjjbi78uG
yof5UkkUSCjcsNa4SaIeLf2DA8kUWCXyUDs/gkT5ZRPfEtNwfMXNwxUjcf2U
aPPyZlKgGifJrRlDooK8gUDiJQUy63FqpD8kkVOSlGZ/HQV2CalRnhTgegzJ
qY6bo0BTqaBMy0ESRS9aH7X6Q4Ha3Cj/3k8SuQetLnAt4XhUT7d2jv6Ln6nc
dQYFim7JtPWfJtFxz+mIgI1M0Ep7i9L8Ks7vod3mFuJMcCSLKyNyEw2dVH3T
vdGYCTKdu+oxs5OGUGtn7itTJpirnXVoWJGGBE7NhJ2wYIK3X8UIDijRUOUT
GdkaWyb4i8r426WCzwdC9/wvuzBBcxFjckqTht4sHeNcDGKCqpG7Dj8ypiHO
Sqr2UCoTFPte78N6moZyDN1SK/4wwRjdyyy15fh8oiihA5aY4PAXrX4NREMV
1G+9lStMcLHu2Le89zTU+umo0DuCGbY8zTyWXEdD80cdoqs4mOHGny0HEtrw
+cnf4sKHbczwxz2nyws/8fOJOvbtB5hhTbdeGH2zMlr4JbJ5OI4Z7rgcYvHT
WxkVWxswx+pvgBoBNq3P8fk37OD1lKLhDRDJy0lbquxGEv1GXenXWaCLvHKM
gIIq0lS/FiuswgpV4Owjc0M15LitZYnyiRXqZgwlHnLagxbqowbPhLNB17sJ
1X131VH8BqdAK2l22J7vk6iSp4H4vhY/Zqpmh0EvbNgG0V7EcjHcZq/fRvhJ
51Wz7Q9NRGQ75Q/yckCz1f1QdGQf8k/Mj+J9zwFVj/RZaP3WQuUKt9h5fDmh
QXfQTPCQNuIx8le8Qt0Ezy7vdLxZrIP6drV+Cnm7Cc4mSy8euQrQi2QgPeTE
BbPFmfivCUF0NH8Pz1YGF9wQFvGz1hXfbw7/pbYSVKh6b9Zgzg3fr1jLNl1l
pkLjjX1T245BhBy12cfYqZDZg4cj0AMiSQ799SI+Kjy1SylI4CREw8csJ03k
qfA9b4CQWiBEviI+Hy/YUOE+RT27kesQXb6eFt73jArdhE2yBTIh4jrHZuSa
R4VjSsZMTFkQJXqe4h3Op0KJDY9LJrELjfemTxdRoRDDSLnqGZ6fp62aqZIK
TdL3+Ho8h8g4mWCX/0SF7iZdzNHFEAmWOkcHrVChL7XphmsVRHmjWx9STbjh
/IA0q3A/RBbZMRc/mnFDSZnUoAnsWS8Wl2uW3FBWWkqq8itEGr8mpJftuGFk
h5aG2zd8v5t88/ynKze8k/rUKOUHRJ9nHd6/PccNc+bucS+MQbS++mDMO50b
tv/N4uP+A5ElD1WjbpkbVvHs7FjlpKPbLEyifdgRAx7FlE10VL20sDaDLWpw
Lo4Ve89gf5XICjdM+sFrvxlbpDDP3Bd71FKtWwp70Mb0hMAqNzRlkvtkhB0Y
Hxnnvobfn1n+JB47L/JySDD2fM6p8EfYw5cDHaOwvxj+dnyMbe/lKFmK7WUV
wJeLra2p+JyDwQ2j49wuVWKz9jXUFGBfG5s0HsYGrZVZtdjVN75I/8IOri68
04sdUR67No09nvvQkmWdG/5vMeL5EnbzxZP99tiXHzlTubjoiM3fGZ3CzmUd
/smDDT2s069gm26E5YLYL832eeViT/X4ntyO/UuXNHmHPZ6tpyuDLa0uRX7G
tuWd2LIT20lBiPcXtjK/57QS9n/inAvr2CH5pTW7sf8PzprzWw==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxN0GlIE3AYBvBtbjpdTWeYbDJlOovSMEw0LZtlYHniESmsGeaRimaySAPR
iXaoiwix0TRPKNO5dGofzDRdBmYeaJm0ORrDzImucto8tgry/f9feHj4fXt4
OSnX4tJIBAIh+m/+dXja4tTg9xunCP+PHMrK0zATeLs+Vi+pVTBTwREfZrvq
mELwxdSN/ofMMrDa506omFkNbnCKuV3BbAGLqIqD95jd4MSkRrnhhxJMs4j4
Ya4TYM/YlcXhyhnwzfFAnmRtDuzczZgnEjXgXm3o2MRJLXgoq84laVkHNh4I
tpflfAOTTG0OLp5LYH/L5d74jmXwWJnf+MjhVbDbA72pdcUA1m9o5j8e/Qlu
Weobpd//Baazn67qdGvgqsye9AbuOng9pE13tXgDLPRVdu8f/g3WdCgrpzib
4K2sGemhW1tgr9M25vS+bXBYEyej09mM/sVOdv/Kt4C9ly/QZqMIIbveZ2+g
KjeRyQNSuUctEZzt1zdnG0ECt51PaXi9jmzUsxwWaqzAPfFhVtVnyeDic+X1
3QvIHHX45+ZyCjgooKya6WsN5rtOmIjTyMZRsTZPZAOWkAXCOC4V7Z/vaSIp
kSlFooTA67ZgQqtArnW0A+c/losdh5D7ve5SGbk0MCM837uUvgesOjI5XfgK
+cUTHlcn2Au+JPdnsM3IJeWNItVzOli2yJbSI+3BsQz68XebyBUUkosKs9Jk
3DFg9teqh1lbyCyFLCYXszYhKsNpG1koqaq5soMsqyopLMC8UCLkizEnZvLd
X2IODvLusDMjW6vev+3EzJsceDaCuUCpqPyCealdGkuxII8XZasTMdvkJw/m
YA5Jj28uxdwVfSKzHbP+jE/kG8zcAA+fT5gFXs6OesyP3GhGC+Y/1R4hVQ==

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {-34.63226397423081, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.467479827927024*^9, 3.4674798569845552`*^9}, {
   3.4674803208189*^9, 3.467480337592688*^9}, 3.467480450261086*^9, 
   3.4674807972639914`*^9, 3.467480829346465*^9, 3.4674828140316963`*^9, 
   3.4674830575016727`*^9, 3.46748348865103*^9, 3.467483523922686*^9, 
   3.4674835706762323`*^9, 3.467483689892736*^9, {3.467579269910458*^9, 
   3.4675793222623663`*^9}, 3.4675794738395557`*^9, 3.4675806736785603`*^9, {
   3.4675811173151484`*^9, 3.467581126683179*^9}, 3.467581508243607*^9, 
   3.467581546742684*^9, 3.467581956842123*^9, {3.4675823873955517`*^9, 
   3.467582416236145*^9}, 3.467582745452962*^9, 3.467583055677402*^9, 
   3.467583090685697*^9, 3.4675834790218477`*^9, 3.467584083860343*^9, 
   3.4675841490663567`*^9, 3.4675842518926*^9, 3.467584322271891*^9, 
   3.467584476705655*^9, {3.467584611815646*^9, 3.467584639905117*^9}, {
   3.467584678484497*^9, 3.467584699884089*^9}, 3.4675847311773777`*^9, 
   3.467584808601553*^9, 3.4676322325132008`*^9, 3.467632368408115*^9, {
   3.467632433676179*^9, 3.4676324764677*^9}, 3.46763253321863*^9, 
   3.467652529193946*^9, 3.468590121921543*^9, 3.468593541640935*^9, 
   3.468593954817637*^9, 3.468594454085678*^9, {3.468594515188651*^9, 
   3.468594540252143*^9}, 3.468594671116213*^9, 3.4685947200000362`*^9, 
   3.468673738261113*^9, 3.468673802043646*^9, 3.468673837364287*^9, 
   3.468673955960002*^9, 3.4686753148159723`*^9, 3.468678415401246*^9, 
   3.4686785373726387`*^9, {3.4686787669548807`*^9, 3.46867878249492*^9}, 
   3.469193247444165*^9, 3.46919341232528*^9, 3.469193721415172*^9, 
   3.4691937638063183`*^9, 3.469193824765768*^9, 3.46947998166818*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"180", "/", "Pi"}], ")"}], " ", 
  RowBox[{"Tmax", "/", "kSpring"}]}]], "Input",
 CellChangeTimes->{{3.467396903658636*^9, 3.467396962701028*^9}, 
   3.467396996425456*^9, {3.46739746884308*^9, 3.4673975326508217`*^9}, {
   3.467397625785314*^9, 3.4673976274316463`*^9}, {3.467397790755398*^9, 
   3.467397803904971*^9}}],

Cell[BoxData[
 RowBox[{"0.8662442635087989`", " ", "Tmax"}]], "Output",
 CellChangeTimes->{{3.467396917686204*^9, 3.467396931435074*^9}, {
   3.467396967144556*^9, 3.4673969970737343`*^9}, 3.467397417040325*^9, {
   3.467397470347995*^9, 3.467397490610798*^9}, {3.467397528976288*^9, 
   3.467397533100007*^9}, 3.467397631043847*^9, {3.467397783753454*^9, 
   3.46739780457055*^9}, 3.467399248247034*^9, 3.467399377674138*^9, {
   3.467400221247324*^9, 3.467400226096167*^9}, 3.4674019655629253`*^9, 
   3.46740226987709*^9, 3.467403311873707*^9, 3.467458607211727*^9, 
   3.467458856024164*^9, 3.467460880757997*^9, {3.467460934952043*^9, 
   3.467460950849223*^9}, 3.467461016653659*^9, 3.4674611603886003`*^9, {
   3.4674612462539043`*^9, 3.467461293048959*^9}, 3.467461469955611*^9, 
   3.467462289673324*^9, 3.467462333328848*^9, 3.467462395832308*^9, 
   3.467464343403699*^9, 3.467467137965022*^9, 3.467478606282827*^9, 
   3.467479591467429*^9, 3.4674803208694572`*^9, 3.467480450327973*^9, 
   3.467480797313925*^9, 3.467480829408196*^9, 3.4674828140429697`*^9, 
   3.4674830575126753`*^9, 3.467483488760138*^9, 3.467483523966407*^9, 
   3.467483570711341*^9, 3.467483689909657*^9, {3.467579269937517*^9, 
   3.467579322306818*^9}, 3.46757947391441*^9, 3.4675806737022676`*^9, 
   3.467581508265134*^9, 3.467581546803245*^9, 3.467582745483721*^9, 
   3.467583055741984*^9, 3.46758309075771*^9, 3.467583479064962*^9, 
   3.4675840838820763`*^9, 3.46758414916352*^9, 3.4675842519227858`*^9, 
   3.467584322296587*^9, 3.467584476717391*^9, {3.467584611861617*^9, 
   3.4675846399182*^9}, {3.4675846785511503`*^9, 3.467584699902576*^9}, 
   3.467584731193996*^9, 3.467584808662219*^9, 3.4676322325375233`*^9, 
   3.46763236843309*^9, {3.4676324336921453`*^9, 3.4676324764955597`*^9}, 
   3.467632533278302*^9, 3.4676525292606287`*^9, 3.4685901220214653`*^9, 
   3.468593541700975*^9, 3.468593954835112*^9, 3.468594454279275*^9, {
   3.46859451521949*^9, 3.468594540290976*^9}, 3.4685946711491423`*^9, 
   3.468594720023622*^9, 3.468673738326541*^9, 3.468673802172858*^9, 
   3.468673837470708*^9, 3.468673956050767*^9, 3.468675314916135*^9, 
   3.468678415428802*^9, 3.468678537474844*^9, {3.468678767003998*^9, 
   3.468678782549036*^9}, 3.4691932474549217`*^9, 3.46919341239224*^9, 
   3.4691937215073757`*^9, 3.469193763835869*^9, 3.469193824802737*^9, 
   3.4694799817241297`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"180", "/", "Pi"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"Angle", "[", 
       RowBox[{"mV", ",", "1"}], "]"}], ")"}]}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.435423473601293*^9, 3.435423489896106*^9}, {3.467396673752857*^9, 
   3.4673966991195*^9}, {3.467396744056724*^9, 3.467396771628088*^9}, {
   3.467397004337969*^9, 3.46739700599998*^9}, {3.467397388160551*^9, 
   3.467397407660871*^9}, 3.467459149709363*^9, {3.467580847979999*^9, 
   3.467580849434814*^9}, {3.467581832368923*^9, 3.467581874944954*^9}, {
   3.467582861815735*^9, 3.467582871694042*^9}, {3.4686752628601294`*^9, 
   3.468675267802236*^9}, {3.468675393242087*^9, 3.468675394992724*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VN8bAPA79pKZLCUiKbRJuiNUOO80iizZC2VpE/1sIaGQIrtSUkmW
VN+ELNllyVqyJUu2lFB2Jck28zvNP/N8nufec9/7vue851zpUy7GZzkIgjhK
IYh//zpnf3yoGLmoMcnGP38GcDHFXfvFTFHZ88ycf6Yn3o9/JXYGvZWvr2dh
D0rIBFySc0aD2w20l7F1GztzHol5oFGGxo5FbJkIyadsKW/0avU997/YSzqn
752U80NrlS2kZ7FHA9uqT8YGoDHDQKWf2MfOzJXeFgtE/MS6jHHsaqZ4QVX8
DWQwIBz+HVtxs3rWb6lQFBl7qekrdjyHbapsSjh6VHLgUg8238C1x0flopDl
tEdQG3bxl9bGKtNb6MFHgfkGbFfDMzonYqNRVptAazV2365gZqRYDPL+qJGb
gx2TuK5C9vhdlF/rXPocW4f2Qq0sPhZ58nDKJ2DnTzbsmZJ6gA7+PLY3GNvR
2jon+GQcCjku9skHe1PTlMLGlIfonIVarxN2VIbQViO5BCQpmCJijH1Q8smT
kXOJ6Pr7QW0mtl9t3Oo3pknouXjgAB1bSVk+0iI2GVXFdx4Uxk5aY3AjTOwJ
yjyS11Dvx4DLjfeqjxY/Qa0xb3cUYB8N+sKx+fhTRHlLTj/GXjV7wb8k/hka
qqakemF7tcV4jUuloncN57olsE0i+vILK1KRPZPnDBe2gqbcbODJF2id/JTx
mC+u56uCC5IpaYg38IFtAbbRne7zR+Reoqikjfu1seV1N6eK171EOxcGJrdj
83E6fh8+l4mi5AZ4BbBtiljZ5aZZaG7LLYfmKwxYs+2WgnlsNqqUfDKmhx3A
92pLqFguSmJt+bH9MgO2a0WH5LjmoptFYUkEdmuQy0hPXS66rTf5uN0Hzx9O
+TQFzzwUlhAW5Itdu/xEoa01Hy2LZL2p9sbvOxO7RyqiCCWd/Su024sBebsv
xmp/K0InONUcFi8xwNrVZO7CvmLUZqexogY7c4JWVP2jGN1jusodxTb+EaJ2
/uBrdD9Xst3FkwH3+3yYeawyNHMxiAjwYABDwuLJZ7NyxOIdm0bYo5Yq3HwZ
5ajDoGk7y50BG8a9T2fsrEBWz5d8vLBdHJRlid4KtCifGHHGjQFCZzKfP1Wt
RFoL9q7irgwwt0jOnP5ZjfICU0WXzzNgqsd05WPxGhRQ+pQ3DfuGNd9ZE2YN
6pf6c8wc+9VpF/H8mBq09bm/WLYDA6jO6kGXVWrRfH6a1HF7BtRc67Lk8a1D
cfqiStFnGUCmC/JI8NWj6vTIE0E2DHinUGPbqFiPjpim6Eth22Z7lfhZ1CPe
BYeEQmsGROb3u359UY+k7H9bj1gx4EdFRs8z/feo5vuZ48wTDEhoP5y9+04D
urZ/Qq3LnAH87IATWhuaUUoJ0y/CCOfL4Zi1/KFmZJbx5o0ItkybvK2gczOi
rr1yPt6QARqpnad7SptRNPXWWKoBA4pSY/MKFFrQ55H7aaX6DJgwGX+t29SC
Sl1nN7w9zACz5/feuwu0omuE0XN7Bl7fVtf07KRb0T3diyF9wIABIadG8z2t
SHdSstEI28X3QLO6VSta+Dp4XRUxINR4opU3oxWN5dQ8Y6kxoHTpQPdDvY+I
HFZ57aTKAFmjyR9V4W3otOnKpQ4FBoj7a+07l9yGvrJf/NiOvTojKXxlQRsK
Hbgk6beTAQt8JgpGA21oiNvbZpM8A1oqCtw/q7ajshZdzVPbGOCjGMD6O9SO
znS8DyvfzIAmmoiIAnSi2WDflilRBlxq2ovu/+5Cx8pV3suyAKgKeUPv+LrR
Id35jZbLAE8iFSMWJbqRfJdMe+QSwAe9LV3WB7uRXNBT85kFgB3vRdxlY7vR
5FDp+/w5gP66qWc5Kj3oBj/fYamfAFpvnlIbfXrRndhfnzy/AYjmCn6mUPqR
03UZf1QLkD/AbGhWG0C1KyYYSn4AlecfrbcYH0Tz+kqKQzsAZuXUaRlO35Hm
s52uH1MRcMynrV4vO4rsNu1RvtepAcps23yTl+PI/cO715sIDWgIVGqq3T6F
dsbL/L4soQ5St8bmUyenkTZTpyd0jRqMzfV/blf8hRZE0qu1RPbDk9GSemrU
DDrkafu98/deoEr+NzU4+BuVlQQ12HSqQoRDnl2SzB8k9WnRraJZBf5A2qC9
/xzqHy1xtSxRBg+yOndt1V+kZyiws/rtHuh/WR3+QXoB9XqZiw10KUHLBNc4
uWUBDbVOnnLvUIIK+YN6MfILaID/3EOej0qQ9KJm1TGVBaT4h9pPNijBqWe1
kb16C4gno6jncZkSDD96e/P7pQVk9uIU62uKEkxENNxZblxAnGLMkO8uSrB4
vu3hNp9F9Di+vNiBqgSmylbRCv6LiL2u9mUuvxKkU4Zv0AMXUX9HyGPKCiWw
vj93QT1qEQUkuEcmcyrBmxpxbaPHi6hvNRk1/5cOwRtP/vaqX0TyG6Zl+Qfp
INwxofdWfAkJlVpxvi6hg2Oy54FGqSUUueD0R7uIDtWObJVWmSXkklu28lM+
HTw5BTf3KiyhEKdQ2nI2HboUleanDiyhc3bXPU4+p0NiuM9T0f8toQ+TwV3R
d+mwg8HLsitZQlkxzZ9jL9Ah60Xalk8VS6i0yWvffhc6KIkYGh2uXUK/MjuV
BxzpoPb9/pMdH5ZQrMXPNar2dDgSuV13engJKQwrhnPa0MGtS/++t9Ayqq2r
0RDXp0PRhRgywmEZvXM4/dV4Bx00elRPLDsvo7iatEr9bXSo1OwLcvZYRoFJ
U6d0t9ChXlSuy9B/GeW5OH07spkOvaUF/mvuLiP5Qst5z/V0IFb2NCRULCP3
tbXSeqvooPVY+ly2KAsdUtydRpsmQek+Va5WgoUOzHTuuDpJwsaoxcFuaRbS
ntCSmxknYcG7/RSXPAtJhc2FfRkhIcMo1PoYsFDvz3yJ7m8kCFN+mi3bs9Bl
ZveVQ59IIOb6RIScWShToulQfwcJ4+P1H+XcWUiHfSXap52E2k9PjAx9Waj9
oPeLwlYSvLPM9VOiWehI/Mhv40YS+m0qNA8Xs1BP1L39RBUJDWYZnNblLFT3
SUDtzRsSCnXjKt2q8fgVvysDK0i4reIB8U0sdKs54KxwGQkHaVvVpgZY6GlG
LK9BEQlpZTfpd/nZiB7+gAZZJFyStNn09QQb+RwwD6EmkXDKUPFo70k24ol7
LCyXSMKR65SwTjs24uwwXwMJJMiNpPxsdGWjo+cdr1yOJ6Et90dFcSAbeQv8
6KE9IEFRz80mJp2NPG78nH15mwQJf+adm9lsFLQleWYimgTeHJG6sHw2Wuug
47AL+7NogUJABRsVq028LrpJQsS3xWWnNjbaskuebzyChB8+QfFaS2xkGGqg
WRdMwujRHfbJBAG1StC4E9t2WphDipOAd2qFzbE3SNDdPLRHnI8A3w/JDNcg
EjaFBj9aLUTAy7XCvXCdhPubXFWiRAh4kfmHXnKNBOpr8w/8ogTsu76VRxV7
fnIbN68EARKHu8X2BpDQYtrguCxLgOnOwV4LfxIOTebyXN5KgIPZRrcffiS8
Dn6U9Hc7AXUmpQHe2P8VO7fN7CJgxfkYWoovCX4bBdVG9xJgtV5wQPgKCb+L
5tvPqRHgKPLyUP5lEs6bDLgMaRAgLpgscxzb7MarlC9MArjSOfXSfUiQHzfj
79QnIOfGmoOO3rjepnrlYYYEWN5eryOBzSw94K5hQsAbJ02VZi8SLKN29Tw1
J2BS3fSdOvbwH9mbFscJaOAddpq/RIKbjQRTwJqAW7rT8wXYoYor0jxOEzA/
WlWnji3ygG291Q4/b73qCm7sJMofoV57AvxcfXY3e+J4zo/X3vwfAYMmthCP
Xdg64MN0JsBNsXyPI7bm/i6FOVcCsl0dBRF2c0rzwAt3Arb7q38UwR72eK0j
5E3AYlYS37uLOJ6+HFbNZQLsU/su/4e9fDA1x9uPAFXxmLYQ7JCXiXY7A3B8
Tg+EnLBFRGPFv14nQJlWtccUO8k/oinmBgGX7IfVNbDlf1y7ph1KgPbgp+07
sAsNvZWXwgmgT7gsiWMzi1xGM6Nwviau5ghgN0nbJZyOJuCq4Vc9TmzLsBPG
ojH4ef527xc9cLy/jHnexxKQPzy0cw7b7fjhYr8HBDCmlDxmsVlVyJmMJ0CO
a1vCH+xQeeVNwwk4/zfvpS1gi9yV73iQTIDMslk85V+8y5vC9J8Q8HZs4zX+
f/HaiWlQ/iOA6e2cvA67oIn2KzeVgAcMtZSt2AdUeJ7ZpxNQ5rU+eP+/eBOX
LCQyCfjP+JGe0b94+WYEWrIJ0OI0mXHAHnYdeXM9l4A7ZY0+Qf/y29V/UaWA
AP/ChIGUf/lldGwbKyKAkD22veZffl809CW8JkBANcRo5F9+hauijcsJiJWt
OrYa1yvpctFBnkoCbks/UNv3r/6DmfNF1QT8sXnItvtXf71nGU51BOSJHE+K
xWbmxZ+Urieg2t1hwztsyxuh70KaCXhKFGQp4/k0POnvq9ZKgG3suuoL2BeO
ee6ebiNA7ZnAq0zskK2nHxzrJkCBa05aCc9fkWgLff4+AnYWCyT7YCfOG1DK
+wmQKl6ar8LOr1dzkBvC8/XccxUbvB4O0OmS3d8J2O8bvD4bu/Hhtg+RowSE
p1/v5MbradBx7d7ZKQIMtq7rKMAWpk3zVS8QIMu881Udr8/W0rDgw8v4fY70
2iVi33aU5WlmEzBdpnaaE69noXpLzm4uCrCTe8pb/zmoZnmKSoGMA4WsKNwf
Wum2Vy4KUqCc+Y3kuorvH1hYWBCmwEtjs57L2IKg+JdbjAKFzs+C3XB/Wb0Y
92v9Zny/y2ZNX9yfWlL3XEiWpUBjZsZqnkASbpm3TMltxeNdYHpHY9PyuSd2
76TAlzXTvzNxf6NecP2upUKBrLi1W1aGkLDq+8Fed10KVIqWLZGReL+4+8Vy
Xp8CCaOX5gawIzQvd/kZUoBbR+D43SgS+B9ndYSaUYCa8siScouElVbrPyTa
UEDFWUz+D+7ffB+na967U2DX6OMEY9zf3waEaxp5UuDhrqahrXG4XopyVR1e
FJj9uDGS8hD396jjFV99KcCjQFsowvsDz+Ha4rlgCrzrbFPXwvsLV/nDzM3x
FJC7vm2m9T8SutU0tfsTKCB/5Iry4HMSMovHv8QlUyCuaXjv31Q8f/LVhYT+
o4BZpbrf1nQSsjP6PYgcCny7qdD+Au9f1vGb9/XVUcC7QXmGLMbz0TutOnaG
ApOy/ZNazSREzZlYGf+hgMH6Tf2ZLSScvrg0KzBPgYlmd3fx1n/5098SxKJA
3tKzwLk2Es7aT4W6r+CA0VXcih+6cX2P0Q0MpThAVu/sF8p3Ev6nVNK1QpcD
TMBzlRmFDhUt7emF+hzAvdG2m5eTDmucpv3PGXKAxwGBtaVcdCh/KitXY8YB
bgWPWhX48HlM9JbbVVsOENpL1dxFo0PJ/Bn+uYscYGU6uDlFkg785VT1wSQO
aMgXzzNQo0Pa4VNJZX84YKtnYueNq/g8JS+tgeY54KiUeefTa3Qoo37pKV/k
AKeq3YW1gXRo+Wgl+obghJCLEWLUUDr8trKIqlrJCZ8+lMGraHx+cjO88nYD
J6ybFDQ8moKvj9Mwbz3ECRdnfYmFOjrMjomvHo7lBP6ocXm/tUqQZ6LFGaPJ
BXwRH44/wudff+2gxNxhLkBMMp+dtAek+3Q+pQRxw+fuuQVfL2XYpxIYI0by
wNuwZ0ouripwYkPzPOUjD3wLpao72KrCbH3kgGsAL0Ch0s/VDnvhPpe1h7EM
HyhZnPBRs90Hwp/zHnNU80FSI3XFKoP9wO0bYLr3wgo4c+iU/jMdNSBSrTMH
hFbCsn/X+/Qd6uAWlxkpVLkStjH37NkjpAGlO0L4BJ35wd4zh39kUAMEddzk
r1FXgWP2GiFKHILenS0fvV+vggQ3l89ycgBZCUhm0FoAaoduNwa4AlhlKgtK
sgSgJKKypT0Lf99Y/qW2EFR4IBnN3Z2Nv694ildd56TC7JHf9/pyACpOqPON
8FEhc9CqfSAXYNNKTXauMBWq13LmDBUCDJ8xmtDbRoWQ8+XjDRUAzuKO766Y
UqHY68he6RaAq0HJAb0vqNB0jX6qfxxA4BKvzskMKnSmHtmQPgEQZ+8kNJxJ
hci0Ol2vSYBXuntTpnKpIPPj7QJ1Go8v+KGao5wKa4bLn++ZAdBNIPi2faRC
4KzaAft5gLUFNlEXF6kwP7Ph2CluBmT8kHxI1aOB4WInI3U9AwxTo33fHaFB
/XtPB1sJBvxy4LYNNKJBtyxtZK0kA1THxmUWjtKgzm3bdMAGBlROlLwcOkmD
RZMpSUNpBnT8sqh8fYkGTDPRuQY5BrCX7o6cT6GBrE10nPZuBhgJUlXrFmig
Nzl7WUuTAWHcHOt7sacp6/N1savnZ5ensTMSxaYNsJUH+qrEF2lwzjvltDm2
+KsMA2fs/Kcj2g7YA6b659Ys0SDxC1oVju1xPyL29DINTnQIezZhZ0Rc9fbC
ttx+Pq0Ve/iqx4lIbE2+uC8d2OYOJzYVYHefvKHTj62+T/7lShYNxsKjJaax
eXrf12Rj/6/4QpHgQQaglvLntdhx6bbja7C9ql+F92A/3rpNShx7NP2hETeb
BmTZocBN2E2+/+szx1a1ydWjY/O62VQ4YXMkufipYIOdSco17AfnubL2Y+cc
2e+Qjr39UbGQJvbYgV16b7CluXuZ2tgyKpt3dWB/+dPhoYdtvUNUaAzbzi3t
qSH2PSn+WTZ29iWLDlPs/wOjNIhN
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 20.},
  PlotRange->{{0, 4}, {18.4568703297839, 34.99999999999987}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.435423427341*^9, 3.435423452084588*^9}, 
   3.435423494861347*^9, 3.4354235849415417`*^9, 3.435423724678959*^9, 
   3.435424048600258*^9, 3.45769092303036*^9, 3.457692906956259*^9, {
   3.457710597663475*^9, 3.457710622728888*^9}, 3.466793443115453*^9, {
   3.466852697732581*^9, 3.46685272548952*^9}, 3.4668529846190853`*^9, {
   3.466853654992978*^9, 3.466853668632921*^9}, 3.466854891493581*^9, 
   3.466856464197669*^9, 3.466950793689651*^9, 3.466950978412621*^9, 
   3.466951253789439*^9, 3.466951729612845*^9, 3.466952283698807*^9, 
   3.4669527054290867`*^9, 3.466952825943935*^9, 3.466958987119543*^9, 
   3.466960319053094*^9, 3.466960750437846*^9, 3.466961327827297*^9, 
   3.466964691052046*^9, 3.4670335444317627`*^9, 3.467034060015319*^9, 
   3.46704914499898*^9, 3.46704982485915*^9, 3.4670498855177803`*^9, 
   3.4670502839029016`*^9, 3.46705061446906*^9, 3.467051567452572*^9, 
   3.4671311109060173`*^9, 3.4671311574619837`*^9, 3.467131613291334*^9, 
   3.4673910349209337`*^9, 3.467391566692992*^9, {3.4673918576001873`*^9, 
   3.467391866151353*^9}, 3.46739204234247*^9, {3.467393325583057*^9, 
   3.467393334836499*^9}, 3.4673933704992657`*^9, 3.467393889646654*^9, 
   3.467396402734641*^9, 3.467396710202077*^9, {3.467396751492917*^9, 
   3.467396772484263*^9}, {3.4673969778230057`*^9, 3.467397006966114*^9}, 
   3.467397417091712*^9, 3.4673992483302937`*^9, 3.467399377778825*^9, {
   3.467400221281142*^9, 3.4674002262099037`*^9}, 3.4674019656889353`*^9, 
   3.467402269913672*^9, 3.467403311917995*^9, 3.467458607263139*^9, 
   3.467458856075061*^9, 3.4674591510195827`*^9, 3.467460880803678*^9, {
   3.4674609349973383`*^9, 3.467460950896147*^9}, 3.467461016698991*^9, 
   3.467461160436516*^9, {3.467461246299337*^9, 3.467461293095132*^9}, 
   3.4674614700012817`*^9, 3.467462289862234*^9, 3.46746233343371*^9, 
   3.4674623958952293`*^9, 3.467464343458222*^9, 3.467467138083947*^9, 
   3.467478606350169*^9, 3.467479591552815*^9, 3.4674803210188932`*^9, 
   3.4674804505595284`*^9, 3.467480797430171*^9, 3.4674808295266047`*^9, 
   3.4674828140860977`*^9, 3.4674830575532827`*^9, 3.4674834891601887`*^9, 
   3.467483524148651*^9, 3.46748357075039*^9, 3.4674836900233088`*^9, {
   3.467579270046608*^9, 3.4675793224140587`*^9}, 3.4675794739764433`*^9, 
   3.467580673734995*^9, 3.4675808502296743`*^9, 3.467581508334824*^9, 
   3.467581546884251*^9, {3.467581833501186*^9, 3.467581876033265*^9}, 
   3.467582745617518*^9, 3.467582872421495*^9, 3.467583055841029*^9, 
   3.4675830908454943`*^9, 3.467583479132938*^9, 3.467584083943336*^9, 
   3.467584149231894*^9, 3.467584251986191*^9, 3.467584322331645*^9, 
   3.467584476765842*^9, {3.467584611908104*^9, 3.4675846399685373`*^9}, {
   3.46758467859942*^9, 3.467584699951038*^9}, 3.467584731279221*^9, 
   3.467584808746126*^9, 3.467632232575018*^9, 3.4676323684720488`*^9, {
   3.467632433743792*^9, 3.467632476552237*^9}, 3.467632533327923*^9, 
   3.467652529309205*^9, 3.468590122123025*^9, 3.468593541769487*^9, 
   3.468593954889193*^9, 3.468594454324718*^9, {3.468594515259585*^9, 
   3.468594540330556*^9}, 3.468594671209323*^9, 3.4685947200607967`*^9, 
   3.468673738406231*^9, 3.468673802538329*^9, 3.468673837688447*^9, 
   3.4686739562479773`*^9, 3.468675315348648*^9, 3.468678415571004*^9, 
   3.4686785376215353`*^9, {3.4686787670727987`*^9, 3.4686787826369553`*^9}, 
   3.469193247542664*^9, 3.46919341250204*^9, 3.4691937216176147`*^9, 
   3.469193763926249*^9, 3.469193824893791*^9, 3.469479981835063*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"180", "/", "Pi"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"Angle", "[", 
       RowBox[{"dactyl", ",", "1"}], "]"}], ")"}]}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.435423473601293*^9, 3.435423489896106*^9}, {3.467396673752857*^9, 
   3.4673966991195*^9}, {3.467396744056724*^9, 3.467396771628088*^9}, {
   3.467397004337969*^9, 3.46739700599998*^9}, {3.467397388160551*^9, 
   3.467397407660871*^9}, 3.467459149709363*^9, {3.467580847979999*^9, 
   3.467580849434814*^9}, {3.467581832368923*^9, 3.467581874944954*^9}, {
   3.467582861815735*^9, 3.467582871694042*^9}, {3.4686752628601294`*^9, 
   3.468675267802236*^9}, {3.468675393242087*^9, 3.468675394992724*^9}, {
   3.468678728749996*^9, 3.468678730233347*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV02k81GsbB3B7k5hpJCKStacIFaWi+yqpHknHUlH2/1izG4VypKiOcChN
imTtNIQsQ9l3B1kaW7aUJlmjsq/P/by4Ptfn++b34lpk7TyM7Xm4uLje4Pp/
17cf+VAx6ntMzev4alUaAXy6kp6DEqbogXzymWrsAy9i4/MkaGgppGJPDTZH
SiH4upI7cgqKT6nFPtvcnftcgo5KVzTz6rEVwqXT1mX80ffhcPNG7BV94omt
0p+obVcSoxl7LKSjxpYRjOyZ3i4fsC/R5ksfSoSgvy9wd3Zi1+hKFlbH30VH
xc519WKry+u8mZH5Cxl3XnD/jB3PY8NUTHmAqm5ufz6MTRq6nXxRKRL5zj23
m8Qu+sxurjaNQhdUBspmsD3/oOlbMKLRbq2enBXsAbV7uhESMUiNLWBBfklA
zIttFYpXHiOmvNaWbdj6lHTtsngGcnypaCuHXfDjveaUzFM0Ka9ZqYXtamWV
e8/2GSL0L7WfxJZrmVLdmRKH9Hk1bxphR2aK/MdIKQGd1ZV76IqtJ52aOur4
An24sG89APvPumebK00TURJ1mScMW+OgSoQ5IwkdeVXawsRO3Hr+bphEKipP
Xrg2jX2j+UnNxaJUJNTa9ZT3HwIuhn7mkb+Shnpk3E3EsYVmvYKK418iz/ba
MMD264jxm5BhIr10quAzbJPwgYK3FUx0ujNrKAdb9aTSbIhtOnp7kse4EZuT
V+glnZKBuq80zqxgGz3qdTFUykKplzr0nV8RoHJWnilZn4VYD7f1hGKTeF2/
DztmI7ERyloytvW7tZxy0zeo1EBMaBB76+4oVTNGDnr545aWFZOAYFLerr8k
8tHoRw22XzoBe05H38/1zEcRe0l8ydjsUI/Rvvp89Kbu93ATtgKvSobqNRay
OkWqkM0goG41VbWDXYC2OQmXd2IL/WZoyoS/Q+cffp2yyiSAtc+XcebrO8QY
y93/CNvK02Te60gRcnMPU/oXO3uS8q5mpAiNnDCU1cgiwHjkvraLXgnKUqQQ
otkExA4E6LLWytC/ewrF5t4QcFzKPPXThXJ0O+ips2YOvtfLh/hJmeWofMbH
zRd7x4Q/kbm3Ar2YFLo/j+3hfFCRq78C3RguIvHlESBCy36VplWFFs90HTzG
IsDMPCl7+mcNEuM7onOoiICpPlPBZMlaJLE4tXoX+64Vyd5EtxZFDzeZdWPn
ER6SBTG1yFF6ut+/mACyu07ojUN1SEeqekddCQG1t3suCwTWI8OrFvdulBOw
/zVVQIrUiALTwr6a1xLQoFpr06zeiJrLrIdLsG1y/Ir/NG9EtErlOzvrCIgo
GPT8kt6IuMaTwkaxRyoy+16ea0Lirz+23f6XgITO/+bse/QezdWtabGbCNi0
HmxxekcrElUTdOew8bycL1mpnGpFq7tOmJu14311qNhQ3VtRhNixj++xjzG7
ib7SVnSfCIgu7CDgHZPBKlRtQ4upbdOPugiYNJkoOdvShmK1JOycegm48OpJ
k48wG917ULIaNIT/2/K2gYMsG3WPZVkKfCVgSMSt2UyTjUL15IwisD0CT7Tq
WLLR+113fsVzCPjLeJK9IZONfrz1kqkeJqB05URvnEE7kmjbtEN5nABFox8j
1Q86kI7dlTjnGQIkg04fcUzqQIMv5WwpswRszkx8IFjYgZjq2ztY2EskE1Wj
oQ4k6RFVyTdPQFtFoc8nrU5kIL6jKH2RgAD14LWFb52ofMvlHeLrBLRQREVV
oRt9ifBL8BKkwfWWwyh2pgdNarfcUpGnAVmV9a2B1IuEBuZuTGGnRqiHL0v1
InEWn3CeAg0+GOzqsdLrRQpuFdNHlWig3CTqo8joRd4J+mWmu2kwWD/1MvdQ
H3IyvBuQrEaD05Vp5OaAfsTu91fM0qaBeD71Ezf3IDqQcvlQqBkNCoZ037dq
DyGGd7hwezwNqlyebzef4KCp+P6dNmM0mFXSoWS6fUf2hVStn0ftgWcxY/N2
xTFUeyZR9HiCPRxctykwyZpAfpT8PgqvA7wP0Wip2zOFbPU69UXdHUAmanyR
+WMa9X2PIHOPO8D4/OCnTvVfKObhty4PR0dIHStuJEf+Rg4axpOWc45Alv5n
isOZQamK3tFaYU4Q7sxySFSYQ078Ty11JJ1hDjI4TkHzyOmzSZJLiTPQ99fk
i1UvoHfGD/flmbnAYFbNgw+yS2hDdPsjhsBVWHbpiNsdsIwGKzaKbGVdBeXj
G9YcileQqOgp9TuXXeF0sqxjjvgaWr64+cwaxQ2uS1vLfbFYRykMpkllkRuo
TFzY1H2OC8aoA94tdu6whTJNqlniAsqdeBtNCQ/gK4/Llo/nBmIbh/K7ygOu
ahT3bDzLA6Y06m+Otidk/NcusWyOB6LqPQdqH3vC7Ljk5mEGL2hsPHk18bsn
sExO88ac5AOO263zc8e8IOhM6Iv8YT7Yl9xC+RzpBbID+h9TQvkhxPdFr3ef
Fxw5FBIjsV8Arjvm/zyl4g0WO1oXudsFgLvr1RFDX2+YbYwY8gzeAIqvppgx
ld4Qy2dFN1YggbXWT3oHvw9s+cRK5qkhwWSlNuetng/wBwabHvbaCAcaxBsc
7/kAF9Mqe0hEEOJIJ7IkKn3A+1l2hEiVIJg8idcIWPaBUuX7JKr7Jgg7wCp1
VKcDVd9b5TZZCOLKDbULLOnQv7et3b9ECFY5Cx66YXR4k4AUOFbC8LhQIccn
mw6W2Qep0mvC4C5M2ZTbSoeCywvkNi4yfIwUY2q00YEsUCR0h5cMdn+cnC/A
rrDQIY2SyPC3P1dq0Qc6yAmeXM/fQgaN1zePlbXTYZhmNGmwmwxS7Eifgm46
uEu6Ntw0JUP7dtcyl0E63ApNCu5PJ8P58a11XybpIHx9g75tJhmaCgVHzvyg
wzMnN5HhbDJEqIVVZ2PnnT2cMpVPhrtzUv/cnML51A81POVk+PVOe+eWn3Q4
m8BF2t1Ohuj24u79M3QQK7SO9F0mQ/KvBj2dJTpkjkjHkQ0o4KFqQQvk94U/
mNGBDYYUOLYwv9CD/cuZ3ybEiAIG+9cOHxTwBa3xCYWlixRYstOpnMSumizO
+mZLASOmKseM5Atdv8yrSq5TIN5ayl9mky+srzwedUmhgM1O2Qa3zb5gRCVr
1S9RYMGaZUSW9IUwfp7t/di5kYnXNmPXLM6uTmOn+fjFiWAfHBqollymgIrN
D44YtmRe5nl3bGr1r2sy2EOm5xy3rlDgWoblE3Vsemw4g1ilgNTn4gZj7Mzw
W/5+2MlNOhOm2MO36BYR2CzX1+RL2GbOFnKF2Pat502uYOscUckSXKOAtVh2
H4Et0N9Um4M9mtY6QsdGbeWv6rAff5cSvI7tV5P3oA/b59NFZX/ssddxRvzr
FHg7HuUWiN0SeHXADLv4jvTPUOwN3tYVbtjO7m3U+9jgYJJyG3sn2XN/GHau
4VHn19hRrr4+kdjjJ9QMKrGPKvc9isJWOCSv1oXdm7A3/yG2lbK4yDg2rd61
Iwb7icym2XXsztTYGQb2/wD3sR/t
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 200.},
  PlotRange->{{0, 4}, {157.18005240232148`, 337.66185435892595`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.435423427341*^9, 3.435423452084588*^9}, 
   3.435423494861347*^9, 3.4354235849415417`*^9, 3.435423724678959*^9, 
   3.435424048600258*^9, 3.45769092303036*^9, 3.457692906956259*^9, {
   3.457710597663475*^9, 3.457710622728888*^9}, 3.466793443115453*^9, {
   3.466852697732581*^9, 3.46685272548952*^9}, 3.4668529846190853`*^9, {
   3.466853654992978*^9, 3.466853668632921*^9}, 3.466854891493581*^9, 
   3.466856464197669*^9, 3.466950793689651*^9, 3.466950978412621*^9, 
   3.466951253789439*^9, 3.466951729612845*^9, 3.466952283698807*^9, 
   3.4669527054290867`*^9, 3.466952825943935*^9, 3.466958987119543*^9, 
   3.466960319053094*^9, 3.466960750437846*^9, 3.466961327827297*^9, 
   3.466964691052046*^9, 3.4670335444317627`*^9, 3.467034060015319*^9, 
   3.46704914499898*^9, 3.46704982485915*^9, 3.4670498855177803`*^9, 
   3.4670502839029016`*^9, 3.46705061446906*^9, 3.467051567452572*^9, 
   3.4671311109060173`*^9, 3.4671311574619837`*^9, 3.467131613291334*^9, 
   3.4673910349209337`*^9, 3.467391566692992*^9, {3.4673918576001873`*^9, 
   3.467391866151353*^9}, 3.46739204234247*^9, {3.467393325583057*^9, 
   3.467393334836499*^9}, 3.4673933704992657`*^9, 3.467393889646654*^9, 
   3.467396402734641*^9, 3.467396710202077*^9, {3.467396751492917*^9, 
   3.467396772484263*^9}, {3.4673969778230057`*^9, 3.467397006966114*^9}, 
   3.467397417091712*^9, 3.4673992483302937`*^9, 3.467399377778825*^9, {
   3.467400221281142*^9, 3.4674002262099037`*^9}, 3.4674019656889353`*^9, 
   3.467402269913672*^9, 3.467403311917995*^9, 3.467458607263139*^9, 
   3.467458856075061*^9, 3.4674591510195827`*^9, 3.467460880803678*^9, {
   3.4674609349973383`*^9, 3.467460950896147*^9}, 3.467461016698991*^9, 
   3.467461160436516*^9, {3.467461246299337*^9, 3.467461293095132*^9}, 
   3.4674614700012817`*^9, 3.467462289862234*^9, 3.46746233343371*^9, 
   3.4674623958952293`*^9, 3.467464343458222*^9, 3.467467138083947*^9, 
   3.467478606350169*^9, 3.467479591552815*^9, 3.4674803210188932`*^9, 
   3.4674804505595284`*^9, 3.467480797430171*^9, 3.4674808295266047`*^9, 
   3.4674828140860977`*^9, 3.4674830575532827`*^9, 3.4674834891601887`*^9, 
   3.467483524148651*^9, 3.46748357075039*^9, 3.4674836900233088`*^9, {
   3.467579270046608*^9, 3.4675793224140587`*^9}, 3.4675794739764433`*^9, 
   3.467580673734995*^9, 3.4675808502296743`*^9, 3.467581508334824*^9, 
   3.467581546884251*^9, {3.467581833501186*^9, 3.467581876033265*^9}, 
   3.467582745617518*^9, 3.467582872421495*^9, 3.467583055841029*^9, 
   3.4675830908454943`*^9, 3.467583479132938*^9, 3.467584083943336*^9, 
   3.467584149231894*^9, 3.467584251986191*^9, 3.467584322331645*^9, 
   3.467584476765842*^9, {3.467584611908104*^9, 3.4675846399685373`*^9}, {
   3.46758467859942*^9, 3.467584699951038*^9}, 3.467584731279221*^9, 
   3.467584808746126*^9, 3.467632232575018*^9, 3.4676323684720488`*^9, {
   3.467632433743792*^9, 3.467632476552237*^9}, 3.467632533327923*^9, 
   3.467652529309205*^9, 3.468590122123025*^9, 3.468593541769487*^9, 
   3.468593954889193*^9, 3.468594454324718*^9, {3.468594515259585*^9, 
   3.468594540330556*^9}, 3.468594671209323*^9, 3.4685947200607967`*^9, 
   3.468673738406231*^9, 3.468673802538329*^9, 3.468673837688447*^9, 
   3.4686739562479773`*^9, 3.468675315348648*^9, 3.468678415571004*^9, 
   3.4686785376215353`*^9, 3.4686787309538393`*^9, {3.468678767131206*^9, 
   3.468678782825892*^9}, 3.469193247608862*^9, 3.469193412568272*^9, 
   3.4691937217160378`*^9, 3.469193763992742*^9, 3.46919382500098*^9, 
   3.469479981923908*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Velocity", "[", "dactyl", "]"}], "[", 
     RowBox[{"[", "3", "]"}], "]"}], "/.", "sol"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.434122826389023*^9, 3.4341228487061367`*^9}, {
   3.434123172831471*^9, 3.4341232024589148`*^9}, {3.434123261854986*^9, 
   3.4341232620794287`*^9}, {3.434123372319014*^9, 3.4341234491949463`*^9}, {
   3.434123492892312*^9, 3.434123547183864*^9}, 3.43427465918442*^9, {
   3.4354231011880503`*^9, 3.435423111219648*^9}, {3.435423176935528*^9, 
   3.4354231993607807`*^9}, {3.467405824228409*^9, 3.467405938528356*^9}, {
   3.467405972027884*^9, 3.467406001516857*^9}, {3.467406062571788*^9, 
   3.467406063294188*^9}, {3.467459118451519*^9, 3.467459163603492*^9}, {
   3.4674796733120337`*^9, 3.467479683423181*^9}, {3.4675809002677183`*^9, 
   3.4675809046576138`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VP0XAPA7g0Ih4pV9l+StfkgSztdSthShZC8lS2RrVyhkTyiyFPFW
9pQspRprJWMpWcpS9qSYW3Zmfl9/zfN5nu9z77nnnnvOGZnjZw6dpBIEwU8h
iNVf05Pj7bQfZ3UJQtGb09Bfl91A1HdAxBoMK/KeOtZYgNr91IxnIiegpSKg
aHeNC5jRu55migTCeQY7t1KNLxw5MfcqUSQM1tPrkiVrQqBv+w2DOJFkGLnm
/FagJgGyhA5GRIvkQpavXMc0LQtCOZ9tjhIpg8SrGrxnaU/A9mh2yTSjHjoC
g5Tj/GtgHSvUwUiyFaLFOTmDRt+DguXv8bqYDrBeMPKIE2yH8y27IfVvDwxl
7rvZHPUZhMv4+ymUAaBZehY4F/RA+aBBc6v2IAzc/FKqI9oPtZ6ZYkcnh8Hq
eOa3FNXvMKOow1fkPQabc9Z57VMeAupCwQYxhQk4I7fhvhQaAQ2WS7lV8SR8
9RKuFJYfg+Yw9ZZG5SkYVJAj+X+Pg1TCz4W839PQJXbY9Oe7Cfg5N9D/eQcJ
yHinTZXXJOROvGzijf8DRs8kXVQ2/gZeiUdTw8N/oeLWeBl/whTEejx3y5Kf
BeOo5A+R7tMwiwqG3YPnYC6k1jmeyoDq3J/p58PmoCLj/uVcdgZc41Sxioia
A0p/r1vVGgbwthXW5CTNQXlGX/4ANwMUnYvv9T+aA7l02rDERgYcvlJqa902
B0LSlkwXOQY8r6poBpl5cJlx1iQMGBCoWl/2T908ZAmfZku/ygA3demsW+/m
YZ9e2HxUCANsNYJi1rfMwxkth5Dz1xiwR0v9OLVnHsJzF4wORDCAqp/L9/v3
PDimFpZNxDHgpmWYZ4PoAnhWJbX3ZzAg39dQOtB/Abr6LrE/rWLAQHF9TLvM
Ijjnpf3DN8WAtl/sk6qbFyF8uX8pbZoBNJW9+5NVFqEo53aoAsmArPyG9Ud2
LQJtudNHY4YBxx82xvXuXwRhPaEOoyUGjGa+uzl2fhHKzb4OK60l4Vdsc9IK
fREkVU8tDkuQ0P9h/V+nT4tQqRSlvFeKhBZuc2ta9yLs/MHBypEmoTiSLnh9
aBFSO2NvO8qR4BvWcptzYREUm/YE0ZRI+Hu5LWWj/BJ0Z/gY7lUjYcmzI33L
pSXgEAkTNTUiwVrD8da24CXI9pey8DQmoZAyGqEWtgSZSs/so0xIcEqd89OJ
X4ITDu4zdWYk1DSIGls+WAKBxuhdWy1IuCF97O+FpiWYqSwXrbUlYWPnr/3v
RJeht2MoSMCDhNPZ5/TpUstQY2xZw+NJQv1p1q6P8suQUtz7ba0XCefY+OV6
ty0DQ18vff40CT071Bem9JdhmJmp0+xLwv2YS/8Jey3D46SEEe0LJGzVW8t0
e7kMG7ifb9sbQcKT/ILN3bRlGFHiUtt2gwR1QQtLk8ZlsOp7NCoUSYL2WGru
1vZlsDvW4vA9ioQDccpm06PLUHeAEuseR4J/j3nqRYEVcAnj3qGZTEKVX7Jq
rMcKZBr7z/RlkaD7VdNhxWcFGuQX7DKzSag17Av3CVyBttaTF+wfkNAkrNhj
EbwCfIeEej/lkND7qiJY6PYK5Bi0HHj+kASC+2vzPdoK9LwuldlTSILRA5lT
pcJMEFeLv2JdjuNN5VVsFGeC8w/9wO/Y0vFLw19kmCDRNW7tXUHC4sXPx9lV
mFCYOdsRWklCkWWU0xHEBDL/fWfmC5xvCsNmxZ0JD68wBR+8xveb6xMU8GGC
q3F9o8QbEiYnmz4pBjBh+ouaWyp2Y3eupcUVJsR4M32iaSRcfGJrnnOLCfpD
dcXHakkYcKYZmrxgQtSwvFhfAwnNNkVsTm+YYF3rXWfUSEKlWVqtfz0T1Gmb
HEuxE3cFoowWJpioXj8Z+paEvXxK2lODTNCJVmkXfE9CweubarfXsUCqb8SI
q5mE1LIgMm8DC2wP7ZJ1xQ7L9yh9LcSCX5DDeIntdMdg+7gUC3TTKn096STw
+8wp71FnATliP/uihYTzEs6y3x1YcJbJG6PcTsJxix2He4+xIJhr6bQ/9oHr
lOguNxZM/mmzrMJW/JHDoPuyIFWGU8HwIwkdZeO0F2EseLxoMGf+iQTaWNXf
51EsMBWTmo3DLhCNUSqNx+cTgheasa+F/JvwKJUFXWr3eI07SNix3985uZAF
9ufJ86qfSRAPNki6WcqC5iOpWZ7Ya58Kvo0uZ8E2qnNrNna/cMW2UBoL3M+I
I55OEmKHlla8O1ig2jgX0I194R/6/zx6WJC7wfATZxcJrib3Tp7oZ8GBtP1a
mthaJYhuN47zo+AinYw9fik8w2iZBXTN/x1C3SRMHN7qnk0Q6GwK6687tsv0
RqoUG4HS8xWyE7DN5EZ2inISaE3evn/6sGnV9NYUbgJl+D0eoPSQoHG43EOI
h0DWedufKWDLRt3I3CBAILp00EVP7FRZ313xggTq13l8Ogabt9q2fZ0wgZ6H
vfUswF74vYVjrTiBbEyLIsex26ybT68oEAjS7M8c+ULCvt9lay4rEajC36TF
F7v6RmbWvDKB9jQU7o7CfvTCp+PPdgKpbwrVqMAWtz7i46dKoIRK43fN2Im/
gHNKnUCNAmqnvmNflebXnthNoJvqEvS1X3F/q1r4fEqbQFwZAcki2J5Wg2dG
dAm0deWuhzL2t8kmLlc9Ao0/erlfC9sm4lnONwMCaUyy6ZpgN0ll6Djtw/kR
vadzBBtVhXV9NSbQgdDnZiewyw95+x01IxDL76y7L7bKpM26LnMC8WlzJV/G
rrTe/ybagkCL4+XZEdgGr/QDdK0IdDB7PikBu0Vh92bShkBNpRxed7Ht4rd/
/c+WQAqnhDZnY4/OKtw8ak8gEV7nd4+w/Z3FDXicCOTyR+RgETbzrcAczYVA
5a5XXpZiR+3gKgh0JVBHAY3nObbgXZaTkht+/5vE9lVgZ1FmBXrdCXRotu5E
5Wq8npONN70IpJhIeqy68uPgJQMfAhVo9tusnjfc07NtzhfXi8ZrpdXrtea0
DuYHEKi0+/3g6v3s1jfecTpHoIdemmGr8YwGVpsKXCTQTm09nser8fY9ZTZc
xvGniF1dfZ6VvXlPL14l0Lr3zM7V540svu/2byiBGiRlN91ajVf4juj36wSi
jlTr3ViNNzi2JTmCQEHua6yDVuMdv3bNOIpAv2d2HlzNt0HVmYmSeALdPyZP
sVnNp4zbPddbBLLqsazcuxpftMMh4WQCjcXpH925Go+9yYurdwmU+s30KP9q
/urARzWDQFs2tVeu4PqJUtGQHb1HoOtv5qg/sLNWZKPNcwnkk+pjX42t4iai
S3lEIK9HTy/lYle08JFleQSaFT4ZHoPdcn/5qHgJgV5ovnY8jG3H+YenrZRA
Aeeqtmphj/r+qLleRqDXO5pHxLFX9Dq3/KzC9aXxXXIAfx+R+c1996oJFMGr
ee81tuDGuluH3uB4rx7kzsRWGS5ZqKon0DnkkXcY2y4i6n1kK65nzvG1r/D3
O/o7+Ir2R1xfdkOMJGy/I+f+N92B832J8d4DO1LJ9e6RLwQy1pkyFMAub9L2
UBwh0NTNDV6Hcf/YyDfNWb9IoBMHxjMKcH/6+Cr6hskKgQw5A9zOYieeVljT
yiLQwOWXBrrYAk12bF/YKWh2hVeLjvufQHjDyhQvBdl4XxP5hvvjhqU0UkyO
grJn82t6cL9ty9vpl61AQX6KKl3J2Am2bVOKShTUFH9g/UFsvnKOX//7l4JK
a5ubaW24n/j5jhntoqDKYyW2d1tJWD+2tzfAjILmjQyeSOL+33z7m92COQXt
jv6j/wHPh1jDyz1XLShobxhz8hz2ugdPOqNsKOgEW+iNDx9I4HYUa7/vTEGy
Y6+7PZpI4Pw03fAhgIIW+ayJy3g+sb9JL5HLoKD3eokc03j+fdE2NB64R0F/
M3L3nMMueTH5LS2bgoL0O12X8Ly0K9cREHhEQUXreGKo2KVFA4HEUwryqeEO
YH+F51WGnFbfWwqyZwjPfcbzufJiQf2dPxTUyyhLLCkhIX7OyvHQLAUlVXLu
E8R2Pbs8w7NAQSxWya/zxavPb745nElBX6o1RbWLSDjpPhUVwEVFpdnTPyry
cb6PqB20kKKiV0/G/K78R4KX+sseLjMqUk4c0ddLw/287XNhpTkV3e3SkIm8
S4KQ93TwKQsqMg3/w6SnkvDmPwXFBhsqIotplYdT8PsXTvAPcaGin5YKig54
33m5cGLd3FkqWhsz/VMjHufzDa/OcBYV8ftY66uE4nliv2VDUg4VtSmm/GMV
QsLzOYMhvYdUNPSnfeJCMAnOOy5G3S+gokgXvaSaKyQ8yx76bFdORX8SpQmj
SyTYh1X6tH+gIsVoFkU2AM9Xk+NZr2exrU2mhE/g/UdFRhcWqKjZaGfKdlcS
XvN++/pmiYpilZRc9h3H9fTJUbiGYEO16zfZ+Lngfu94NL6Omw3VDXxuqnbA
+5m/RdA7STa0p/js0BYbfD5N1/bjPjZkMnl4xGEvCTM/RTeM3mFDo9U85fJ4
P07OHHubcZcNWXQqKkzKkKB2sCzYKoMNVTTejX2K92m/p+ZTtGw2NK7mY6gt
iffxCyEt6YVsqDtg/rCBCAkjHKOxlrVsaFO7LIc0HwmfpUq5Xv1iQzO6b/U2
LuL/J1ZGbMmG7MjHpVZzoJkBwcbh98tG2dGt3YwMe28GyPSZdueEc6AwXcHS
LAoDtHaFJYuorkGM1uxZZtA0OEi2LlA+rUFv54rtHUemYKYpbtA3dC16+Ujz
UmLab0hldwo8JM+JuBZkfnWY/IKN/c8fUOs5kWmEWDZl7CdwXAm13u3HhWY9
5V967J8AIs+pZFCAGx2t59XaVDEO/mklcQK13OgWx461WhOj8GprJCe/zzpU
HCJ5ykdgBPhN/VWu8a5HAU47lm3NhqD337ZPF6vXI20rYaX5g9/hyT2QH3bi
QX03/N4kdfaDY4kGvwSTBz1wzPyuz/cVQsKzQ3vzeZGLdIrB0dFOKBqXSOfd
z4e49tHNVRY+giU/r+bbRT505ZO9s7oDHaI5qGK92EIWUbkq9nSoX5hZmcbO
C7z+Q96ODhqDfXWiS3woktbnL2RLB9FnRQd9sL0Kla/PWtFh0Nr8lNAyHxKQ
VUqrNKNDYGrsHdcVPmQ0VZetvYcORbEhFy9g08Njvqlr0WE0JNAhDjtmk7TU
v7vpYOvhIFuBra7zJF1iFx10tFSKuZl8aKD5dCJTlQ5rej80lGJLWB09R1Om
A7S9edyI3T3OKK3cQocL9c9ivmIP5R759USJDhOF6ZYcLD7kmxbtmq1Ih5Yr
Xn222Osb4s2vydJhrb8zzRub0Zlw45IMHZCbVc41bDV5lxp/aTo8PbDHoxDb
4rKbuqskHX7qb99fg30mOtPbXoIO8rvktneuXn8g+6GVOB2ctgoL/MQeDwoY
MBOjQ4rUuhkW9q2TApsMRenwf5pvcyU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 1.1786426676345712`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.434123203732888*^9, 3.434123214018982*^9}, 
   3.434123262965726*^9, {3.4341234023994083`*^9, 3.434123449746995*^9}, {
   3.434123507887905*^9, 3.434123548130678*^9}, 3.434125036338992*^9, 
   3.4341250853792133`*^9, 3.434125122616885*^9, 3.434125227316805*^9, 
   3.4341324500747766`*^9, 3.434133289676886*^9, 3.434133386224289*^9, 
   3.4341987878000097`*^9, 3.434205249833119*^9, 3.434229884934246*^9, 
   3.434230943190527*^9, 3.434274349879294*^9, 3.43427443055289*^9, 
   3.434275616048737*^9, 3.435344654958803*^9, 3.435422996138465*^9, {
   3.435423185808949*^9, 3.4354232003137197`*^9}, 3.435423452395603*^9, 
   3.4354235874737186`*^9, 3.435423743256112*^9, 3.435424068541151*^9, 
   3.457690923340119*^9, 3.457692907261907*^9, {3.457710597758914*^9, 
   3.4577106229106407`*^9}, 3.466793443200304*^9, {3.4668526978370953`*^9, 
   3.466852725716469*^9}, 3.466852984814372*^9, {3.466853655095291*^9, 
   3.46685366892833*^9}, 3.466854891713798*^9, 3.466856464380417*^9, 
   3.466950793875657*^9, 3.466950978614913*^9, 3.4669512540300083`*^9, 
   3.466951730248788*^9, 3.466952152875122*^9, 3.4669522839771748`*^9, 
   3.466952705731889*^9, 3.466952826189259*^9, 3.466958987829548*^9, 
   3.466960319623477*^9, 3.466960751208199*^9, 3.4669613283975897`*^9, 
   3.466964691613669*^9, 3.467033544489612*^9, 3.467034060115103*^9, 
   3.4670491453037863`*^9, 3.46704982494493*^9, 3.46704988646587*^9, 
   3.4670502848086643`*^9, 3.4670506154064217`*^9, 3.4670515683567533`*^9, 
   3.467131111376375*^9, 3.467131157945771*^9, 3.467131613689402*^9, 
   3.467391035151476*^9, 3.467391567505762*^9, {3.46739185769808*^9, 
   3.467391866722168*^9}, 3.467392042903873*^9, {3.467393325667263*^9, 
   3.467393334917611*^9}, 3.467393371412837*^9, 3.467393890570997*^9, 
   3.467396403622621*^9, 3.467396710957881*^9, 3.4673974178876667`*^9, 
   3.467399249442274*^9, 3.467399379065921*^9, {3.467400221334669*^9, 
   3.467400227502452*^9}, 3.467401967272764*^9, 3.4674022702723217`*^9, 
   3.467403312542473*^9, {3.46740582040749*^9, 3.46740582724256*^9}, {
   3.4674058873028307`*^9, 3.4674059393011217`*^9}, 3.467406004222601*^9, 
   3.4674060639194202`*^9, {3.4674060965968313`*^9, 3.467406118018145*^9}, 
   3.467458607318235*^9, 3.4674588561287107`*^9, 3.467459133449315*^9, 
   3.4674591642249317`*^9, 3.467460880891019*^9, {3.4674609350952473`*^9, 
   3.467460950982122*^9}, 3.467461016786573*^9, 3.467461160517777*^9, {
   3.467461246397874*^9, 3.46746129319811*^9}, 3.467461470083152*^9, 
   3.467462290026963*^9, 3.467462333524152*^9, 3.467462396035522*^9, 
   3.467464343505335*^9, 3.4674671382405157`*^9, 3.46747860639749*^9, 
   3.467479591640448*^9, 3.467479684184286*^9, 3.467480321179757*^9, 
   3.467480450670093*^9, 3.467480797649166*^9, 3.467480829631146*^9, 
   3.4674828141511707`*^9, 3.4674830576094427`*^9, 3.467483489410192*^9, 
   3.467483524322941*^9, 3.467483570835052*^9, 3.4674836900883503`*^9, {
   3.4675792702073183`*^9, 3.467579322615226*^9}, 3.4675794740806837`*^9, 
   3.467580673803976*^9, 3.467580905380282*^9, 3.467581508395604*^9, 
   3.4675815469432364`*^9, 3.467582745810154*^9, 3.467583056094616*^9, 
   3.467583091054405*^9, 3.467583479326021*^9, 3.467584084269044*^9, 
   3.467584149564579*^9, 3.467584252514139*^9, 3.467584322591878*^9, 
   3.467584476985551*^9, {3.467584612197249*^9, 3.467584640380056*^9}, {
   3.467584679012501*^9, 3.4675847002330637`*^9}, 3.467584731939571*^9, 
   3.467584809012692*^9, 3.4676322328614807`*^9, 3.4676323689683247`*^9, {
   3.4676324340270853`*^9, 3.467632476823433*^9}, 3.467632533811075*^9, 
   3.46765252970686*^9, 3.4685901227559423`*^9, 3.468593542000692*^9, 
   3.468593955150271*^9, 3.4685944547930317`*^9, {3.468594515771721*^9, 
   3.468594540740861*^9}, 3.468594671449376*^9, 3.468594720571541*^9, 
   3.468673738780747*^9, 3.4686738036481123`*^9, 3.4686738390888767`*^9, 
   3.468673957109674*^9, 3.4686753155891457`*^9, 3.4686784156850843`*^9, 
   3.4686785377408113`*^9, {3.4686787671743507`*^9, 3.468678782955841*^9}, 
   3.469193247657935*^9, 3.469193412617525*^9, 3.46919372178302*^9, 
   3.4691937640540247`*^9, 3.4691938250534678`*^9, 3.469479982113536*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.467456319949409*^9}],

Cell[CellGroupData[{

Cell["Energetics", "Subsection",
 CellChangeTimes->{{3.434122912094719*^9, 3.434122914413233*^9}, {
  3.4343018107259912`*^9, 3.4343018122138433`*^9}, {3.4673914746854*^9, 
  3.467391476459688*^9}}],

Cell["\<\
springEnergy[T_] := -((Angle[mV, 1] - thetaRest)/Abs[(Angle[mV, 1] - \
thetaRest)]) 0.5 kSpring (Angle[mV, 1] - thetaRest)^2 ;\
\>", "Text",
 CellChangeTimes->{{3.467382260503327*^9, 3.467382276298566*^9}, {
   3.467382307848551*^9, 3.467382315810668*^9}, {3.467382354217345*^9, 
   3.467382354543295*^9}, {3.4673825448363028`*^9, 3.467382546417509*^9}, {
   3.467389273348628*^9, 3.4673892765457697`*^9}, {3.467389386577881*^9, 
   3.467389413529524*^9}, {3.46739165788836*^9, 3.467391791597673*^9}, {
   3.4673933090066967`*^9, 3.467393314542297*^9}, {3.467396819680138*^9, 
   3.467396823990863*^9}, 3.4673971007108583`*^9, {3.467397912594227*^9, 
   3.467397930096368*^9}, {3.467397971726925*^9, 3.467397976475031*^9}, {
   3.4673980352758493`*^9, 3.467398039518076*^9}, {3.467398169803978*^9, 
   3.4673982323772907`*^9}, 3.467398294542894*^9, {3.4673993278751717`*^9, 
   3.467399347117667*^9}, {3.467399399479837*^9, 3.467399399905634*^9}, 
   3.467399445004057*^9, {3.467399537285308*^9, 3.467399538463876*^9}, {
   3.467399578320244*^9, 3.4673995883307867`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"springEnergy", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"0.5", "springMoment", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Angle", "[", 
         RowBox[{"mV", ",", "1"}], "]"}], "-", "thetaRest"}], ")"}]}], "/.", 
     "sol"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4674021016940737`*^9, 3.46740213446395*^9}, {
   3.4674021889475613`*^9, 3.467402189625465*^9}, {3.467459856533187*^9, 
   3.467459874451521*^9}, {3.467459954601898*^9, 3.467459987721631*^9}, {
   3.467577965546897*^9, 3.4675779718098917`*^9}, 3.46758063772939*^9, {
   3.467581431000922*^9, 3.467581452642434*^9}, {3.467582708631526*^9, 
   3.4675827301581984`*^9}, {3.467584516235674*^9, 3.467584521702422*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dacSpeed", "=", 
   RowBox[{
    RowBox[{"Sqrt", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Velocity", "[", 
          RowBox[{"carpus", ",", "2"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Velocity", "[", 
          RowBox[{"carpus", ",", "2"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], ")"}], "^", "2"}]}], "]"}], "/.", 
    "sol"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.467458326327386*^9, 3.4674584874797773`*^9}, 
   3.4674585274183903`*^9, 3.467458716710253*^9, {3.467458748167591*^9, 
   3.4674587492855997`*^9}, {3.467460075423177*^9, 3.467460075678813*^9}}],

Cell["dragEnergy[ti_] := NIntegrate[totDrag[t], {t, 0, ti}];", "Text",
 CellChangeTimes->{{3.46746421000494*^9, 3.467464241600705*^9}, {
   3.4674644863835783`*^9, 3.467464496456071*^9}, {3.467464819168985*^9, 
   3.4674648262713833`*^9}, 3.46746490512576*^9, {3.4674649369560204`*^9, 
   3.467464998030283*^9}, {3.467465037925642*^9, 3.467465060675878*^9}, {
   3.467465096791695*^9, 3.4674651840927896`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"kineEnergy", "=", 
   RowBox[{"(*", "Rotation", " ", "*)"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"0.5", " ", 
       RowBox[{"(", 
        RowBox[{"dI", "+", "waterI"}], ")"}], " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Velocity", "[", "dactyl", "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "  ", "+", 
      "\[IndentingNewLine]", "        ", 
      RowBox[{"(*", " ", "Translation", " ", "*)"}], " ", 
      RowBox[{"0.5", " ", "dMass", " ", 
       RowBox[{"dacSpeed", "^", "2"}]}]}], ")"}], "/.", "sol"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4673894394920797`*^9, 3.467389445978128*^9}, {
   3.467389477197583*^9, 3.467389516126239*^9}, {3.4673915195812197`*^9, 
   3.467391519981945*^9}, {3.467392880480506*^9, 3.467392883239048*^9}, {
   3.467392913419845*^9, 3.467392915416604*^9}, 3.467458321473123*^9, {
   3.467458495335946*^9, 3.4674585249376698`*^9}, {3.467458569413659*^9, 
   3.467458573476643*^9}, {3.467458660419178*^9, 3.467458661545712*^9}, {
   3.467458752638236*^9, 3.4674587576778183`*^9}, {3.4674591870631933`*^9, 
   3.467459190894444*^9}, {3.467459269945664*^9, 3.4674592982437677`*^9}, {
   3.467459341205378*^9, 3.467459343941255*^9}, {3.467460055686049*^9, 
   3.467460080607724*^9}, {3.467585374534505*^9, 3.467585391659176*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"totEnergy", " ", "=", " ", 
   RowBox[{"springEnergy", "  ", "+", " ", "kineEnergy"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.467464248298441*^9, 3.467464267505631*^9}, 
   3.467464349312097*^9, {3.467465291044999*^9, 3.467465291729472*^9}, {
   3.467581037228334*^9, 3.4675810411479797`*^9}, {3.467584872092114*^9, 
   3.467584872411371*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"180", "/", "Pi"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Pi", "/", "2"}], "-", 
           RowBox[{"Angle", "[", 
            RowBox[{"mV", ",", "1"}], "]"}], " ", "-", "thetaRest"}], ")"}]}],
         ")"}], " ", "/.", " ", "sol"}], ",", " ", 
      RowBox[{"springMoment", " ", "/.", " ", "sol"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"T", ",", " ", 
      RowBox[{"simDuration", "/", "100"}], ",", " ", 
      RowBox[{"simDuration", " ", "-", " ", 
       RowBox[{"simDuration", "/", "100"}]}], ",", " ", 
      RowBox[{"simDuration", "/", "100"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.467402536307785*^9, 3.467402556189949*^9}, {
   3.467402637941134*^9, 3.467402733639023*^9}, {3.467402768922559*^9, 
   3.467402817555676*^9}, {3.467402853494987*^9, 3.467402872479051*^9}, {
   3.4674611977937403`*^9, 3.467461203660976*^9}, {3.467578003167179*^9, 
   3.4675780081804733`*^9}, {3.46758070874219*^9, 3.467580713275795*^9}, 
   3.4675814831829557`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVlHs41YcDxg9+LidL1MzUQqyF4zjfcz/fc75f53sUS1h1+tWcueSSW+hU
5LJNpBYrs9ZxWZZYifo5c5naL11fG8XE1kxMoVlGPPYwKRHN/nif93n/ef/4
PM/7rgnXqiMNWSxWxKL+9eSs2tn0eRo+pf37P9qsgvZUzMbn0zSGogY0Tr4q
DLSGme9+QiN5eX/l4/UqdEpjyM5uGpeW6r+6QaogSixpcG+koZ8Y6K5yUyH8
gPGRlPM0Ok+aH9C/tZj15b2VR2gkTtU7XmerYBa3PKchhEaUk9a3e4rBQ53a
rkJIY9qXQ872MrDp0oZGG9Hwe+aoXnOLQc9R++Ln7RQCHRJ9fcoYeDa0n1Dr
KFhE0Ze0BxlYO6RMJ26jcO+X7mUnNQzquDHNgRYUrivqg2r5DBqJxzrzJgX2
Z+oOt5kwcN0YmJ+dpMDTee1gW50SYV+kXui1V0C6weKB+RYlRAa56Va35djy
VbwucsQDl19U/8REy8GN9pyb+NADZNUD00+M5Nh2P7e/w9QDhqH2VS+LSXBL
kOr4OY2i2C3X7nNJNMd1LXW0WuTQ5F3nfV2GOHtPNjuPgjYr+dCn3jKYtU+2
rDahMMJUe43flSLgv2MHrqYpsH1PV1DTZinKl9is83gix/ahYymJP0mg6ZfY
rt4uh/GPPWXxfhIcz/af6r1B4jVC/fidO2IUZJQ5GrxNYmlKQZuAEeOFt3uW
JEeGHV7HotdeEeHa/5Tr1o1JcVVkOVzGEyFwV4Fvnr8UnDb14fcrhQhM3fgN
WSvBkuS0Zwv2Qmza9Zf13AoJdNNGqR8UC9BvXvN7fZoYwVF9znwbAYL33Zzw
GRThytLu3/yL+DjbMb2r8j0Ror7FSPoqPmp+Y6kbbglRnjb69fFyAqNTjUys
RAgjjYERIyRQfOyutLRegNad4byaEzzsysSASCbAiWDj5jda3WGhf//uqyY+
ptfaXDOxckfWhrzhxg/4KDh1+7I+lgtFqczfZZbADEzOuf3qhj2xKw/2nyPg
YxU2E77VDT2egquhAQSGDho5rhrkQA7b+LVvEngnOufSzFEO1Pc0C9Z3eOBk
rj8TynBweU/X7qIDPBSGHu+6YMGBf9e0RkDxYOWcTz2ZdMXVncYhhqt4GHbK
sl0x6oolkxYpz6x4sFT86Wb63BXZRUknRx14SPeyjAh9kwOptY3B7nd5GNyv
e1ntz0HaWb/vp47wMMf+ggwr5KBU91f+QM9i38LThBuTHDiNN53grCFQ7qvv
Y+10Q5YF2U6FEqhsO/2HV58bjp7O+NvuIoGossyzhXFczN4teWPDHIHe3qKA
p2buKGwu5tru4EN+qlLqfckdpdzdji+v8NFiFn15XzwPf6+vHfBxEqDPOaXO
eZHDSG6yiSZfANYP3nlBGQQq0roDPjYXwr4jqYUeIzBR2T5qnCNEU0HcNlEg
H62vksXebBFeH+X/erGDj05WVsXneSKoSv1qTb0EyO3wCxfZiNH8Itb9+g0B
SD3Dyz0rxoNUFEtlQljuk7lM8iRQea35erxeiGMNhlsbb0rwn5jWLA0hwsKd
0piI96RoLe/SzuhF0PlpEph+KSIiuau3uIiRHvKK35YgQz7L03S8XAzpkeGg
gy9lsBptng22lyAschXT/SmJmrh4gfJLCRocD1WHW8tx+juX27xlUmRsSm2t
PSOH2NJ/ruuwFH112jnNWgVKzit/GZxe3IHv6uVGFxUIWUh/yI6UYWv9rXvb
XCiMJkVQ7HsymFBv8VkVi79TFPn/8yQJdXnCzz/Y0TCvDn9YcYbEocyM7GAd
DbuW2phHr0g8WbD1KDbyAHskx8Y5WA5OxDlnH60HkjplVZrv5Eg+07uXue+B
oZXOkQHmCoQ+HhsOkSmx/lGgih2kQPTMTPAnBUqU2BmaBFxQQHGyJu30uBLz
EWnzwgkFlp1LTt3owCB7SSqRJ6QgjIy96fwug8k41/PB+yk8o3Y+io1jsHLv
C4tiPQXOUePXTT9jUG/wWQ89SCGI2OEwX8Vg745bZt4raGQ2zfpvamHA/vJ7
aa2SRl3EIXL8dwa6hMLNH0fTGGNL7w/NMPgHeh0ACQ==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{-30., -35.},
  PlotRange->{{-29.990203540890853`, -13.457176968704472`}, \
{-34.62095485563493, -15.535083504270478`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.467402727925044*^9, 3.467402734371451*^9}, {
   3.4674027748748407`*^9, 3.467402819935096*^9}, {3.46740285801033*^9, 
   3.467402873130229*^9}, 3.4674033128509293`*^9, 3.467458607437969*^9, 
   3.4674588562437143`*^9, 3.467460881035137*^9, {3.467460935263041*^9, 
   3.467460951250641*^9}, 3.467461017071381*^9, 3.4674611607550898`*^9, {
   3.4674611989454937`*^9, 3.4674612044673357`*^9}, 3.467464519817428*^9, 
   3.467467138520132*^9, 3.467478606513136*^9, 3.4674795918307037`*^9, 
   3.467480321349454*^9, 3.46748045085989*^9, 3.467480797811469*^9, 
   3.467480829857502*^9, 3.467482814264769*^9, 3.467483057830826*^9, 
   3.4674834900399237`*^9, 3.4674835252870283`*^9, 3.467483571140855*^9, 
   3.467483690205512*^9, {3.4675792708477087`*^9, 3.467579323317501*^9}, 
   3.467579479055468*^9, 3.467580673980337*^9, 3.467580714033492*^9, 
   3.467580992809123*^9, 3.467581508587447*^9, 3.467581547110587*^9, 
   3.467582746148489*^9, 3.4675830563371143`*^9, 3.467583091272813*^9, 
   3.4675834794894543`*^9, 3.4675840843995047`*^9, 3.4675841497832727`*^9, 
   3.46758425281612*^9, 3.467584322763693*^9, 3.467584477122428*^9, {
   3.4675846064059353`*^9, 3.4675846407232113`*^9}, {3.4675846791659327`*^9, 
   3.4675847003491583`*^9}, 3.46758473212986*^9, 3.467584809205738*^9, 
   3.4676322329893713`*^9, 3.467632369186193*^9, {3.467632434187769*^9, 
   3.4676324769348907`*^9}, 3.467632534022277*^9, 3.467652529825839*^9, 
   3.468590123047364*^9, 3.4685935421938868`*^9, 3.468593955312478*^9, 
   3.468594455015081*^9, {3.4685945159401712`*^9, 3.468594540992866*^9}, 
   3.468594671737112*^9, 3.4685947206883173`*^9, 3.468673739127099*^9, 
   3.468673803786744*^9, 3.4686738393166933`*^9, 3.4686739572933617`*^9, 
   3.468675315826663*^9, 3.468678415859531*^9, 3.468678538038538*^9, {
   3.468678767619254*^9, 3.46867878312951*^9}, 3.4691932479588537`*^9, 
   3.469193412714813*^9, 3.469193721957975*^9, 3.469193764760243*^9, 
   3.469193825211816*^9, 3.469195981756485*^9, 3.469479982271138*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kinePlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"kineEnergy", ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", " ", "0", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"springPlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"springEnergy", ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", " ", "0", ",", "1"}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"totPlot", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{"totEnergy", ",", 
      RowBox[{"{", 
       RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
      RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", " ", "0", ",", "0"}], "]"}], "}"}]}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"totPlot", ",", "kinePlot", ",", "springPlot", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.467380128503154*^9, 3.46738021298289*^9}, {
   3.467380314590437*^9, 3.467380315308406*^9}, {3.467382364402763*^9, 
   3.4673824122193317`*^9}, {3.4673892904219227`*^9, 3.467389291363956*^9}, {
   3.467389520441621*^9, 3.467389522391685*^9}, 3.467391850275475*^9, {
   3.4673918920218353`*^9, 3.4673919436225557`*^9}, {3.467391995851313*^9, 
   3.467391996329238*^9}, {3.467392949709693*^9, 3.467392962532427*^9}, {
   3.4673971201526527`*^9, 3.467397141279652*^9}, {3.46739960082768*^9, 
   3.467399732105854*^9}, {3.467399779022285*^9, 3.467399798829466*^9}, {
   3.467399829904965*^9, 3.467399856984413*^9}, {3.467399895044532*^9, 
   3.467400014498322*^9}, {3.4674001914526463`*^9, 3.4674002059795113`*^9}, {
   3.467401679815247*^9, 3.467401695161969*^9}, {3.467401802137115*^9, 
   3.4674018232244473`*^9}, 3.467405676102354*^9, {3.467459967187924*^9, 
   3.467460032638186*^9}, {3.467464275893033*^9, 3.467464360385433*^9}, {
   3.4675808111632442`*^9, 3.467580827435454*^9}, 3.4675809789653378`*^9, {
   3.467581059551364*^9, 3.4675810941214657`*^9}, {3.4675847784609528`*^9, 
   3.467584781972929*^9}, {3.467584862835476*^9, 3.467584868857832*^9}, {
   3.469195999944623*^9, 3.469196022183227*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0, 0, 0], LineBox[CompressedData["
1:eJwd2Hc81P8fAPAj7s7OiEgpK0rntFTk/SqijFIolWSlEpEoo9JAJDQkZRbf
hMxsFYkGJQklkWQn6+6MMn6v+/3D4/m4z3ivz+v1er+XObjvOcJLoVB24h/u
f+MjfZ8q+r31Tu3fKTi4gQF8+nIeP2QtiXB7TzDXaxJj4p7KOpGC+ZnTf9Bd
8sqXzqqeJAWBSSdG0CYfvuTFy3oR5XMVn1lo5euL/5tT8CV9vULrJtHTxo53
7VUvkOdHL0XOoAcCG6vsoy+RFcYKv+ZtZMA+p4nnt2QDSej1X5pC6Cp9uaJX
ccGEp7XWWxLNVNqcw1YIJSE3mvLl0XG8dmkqyWHkV+HMoCqa3nn54V7VCPKY
umXJanRpR8OHV5Y3yOre2O16aA9zJ2Ob6JvklYyAqwm6TfOqfrhsFElTFEk4
ho5KXFihcvAOabGIfeKDNhZL130RF002eKzMD0UXDr1fN6xwj8QySVYW2tXW
Nu+q/X1ywLo0qRKtWDfMWJocS1ZGLrv+BR2RKaG2WzWB/B65Z8a3iQHbFqek
9B9NJG+s4pXk0Rde35//0jKJ3Np8amwteu16jfD90Q9Ih6Gr33F00oJdwddk
U0j4+prV7Wj/D3er9pamkIcqHnUz6L1BHbxKB/8jWV+SHZboMECYcyqgLO4R
8bgU4uWA9mmM8hlUSCP5oLh5HG1xva2wuCKNFHsIxS3WZQDDQJUTaJ9OSrrV
WdvQXU+LTi1OziBStY2h99C7b39z2amaRRrKzuwz3cwADROlNLk3WWSeRtIZ
fzR9nmtvz9Fs8kE/KjwDfbhkNrfcMocU8T18KKrHgAXqNxjW0bmk8n3d0Q70
JfrT5aGy+cTgivuuPGDACqObIXke+cSlKmb1OLohyL2/9U0+6V79TltnC66f
eRoZjDMF5GfTi9S36NczKYzGhkLS+mDJotGt2F9W9DqF6yXEnzOl7bONAQVa
3tHbf5WQosP+jDq0rYfFxKlNpaTo0aZtKoYMyP4jVlLVV0ridrAbmtF7+kJ0
XbY9I44C704YbWdATJuffsHsC+KjE+tta8KALfL7U9qtyskxDRu71+iBA9r8
9MxycrSYeVzTlAFLBn0dM1dVELVI/0Y+Mwa4H1+vQvleQWpmT4s838kACafs
x/9tqCTnHhd2OexhgPX+B9kjo1VEtsWNffkAA4ZbLQUfylWTjaZ3BfkPMiDY
ln7EQr+aDA4aLQhBP3V0lyuMqib/Zd+i3bRhgOjJzUH+2q+JQzD9YJYtA6ov
txygnn9DZqS2REs7MmD1E3GqPL2GSG13lY5zZcA7RrXdB2YNuT/i7qTrxgC7
XJ+yC/triKbq36Q2dHjhD4+f6TXkfF5Nl6I7A/oqMlsfmdUSvktHbhafYkBC
045crdvvyQ+ZMrP5ZxkgNHfJxmjJR7IxMrLc/TKO1/F9thqGHwnfEcEC9Ss4
X40aduInP5J9cY9DutB6aV8cW59/JDcarN/ZBDGgJC26oIhRT/QMS9P2hTDg
j8XgM5O6etJbPz/3TAQDrB7frT0t0kD2WkXwWscyQGX3UN+rsEbyTsKaElPE
ALkAo01HHzQS8SGt/NhiBszPTAoTLGokUu3sfUklDPhLt2Ds7mwkT3decntS
xoD6iqLT7RuaiFZtatXHcgb4MS/NTnY3Eel/ii+3vmVAnZiUFAO+kH/rOr80
tzDgbN1GEsNuISvkf2vHzTFAJl+8nYfnB3lBL1kfu1MTCjv133/U7SSj2R7i
cVmaUOkSv2j/YBeJD3q4XUWQCRzVzWKZbr2kU0M3VVeHCbxTGfMXqQwQd923
f9d4MGH9nF2hRdYg2Xj/5Ef9RCa8D1xb93rFMKGbn9ok8o4Jm8RqeW+uGyYt
PEuFC9GP79lrH4RhMuxDdbatYcKVrIikYath4pDzOzuzFq//2ue58NIwcatd
ec2wDq9fGS/j8mWYWF+1j7X7zISt/ZdzqFtHSPPqxUVabUzwZdTVnDAaIU6n
rxjWoHNOy3bXm44QK9/bxg7tTFgymy0bu2+E+MzszbrxgwlTEm2XNd1GSE/Q
3889P/F6XW0r65gR8pzqIOXTwwSFG7+n0oZGSA2/iNqKYSa8sA9Iy2ONELXy
M0tT0bZrJPeXTY4QXSnvSKURJsQ1byp+zztK1vkFfZQbZcLCxdfODEuPEuXd
e9/zspggka7GWktGya3kDTbF40zgrzoyWB45StwjeiYLZ5iQcmcq9m3UKLla
bjC5bJYJBkfDTT7dGyXRE5r219GXBQvSO5NHCa+fzMnDc0yYNec7zl88Sp7k
yh2fpWjBZNvDbuOOUaK0VfC6Ap8W/J740d7EHCP0/EC7AQEtKDwaWWm8foyc
sByn7RDUgotf9B6V64yRJ6Mao4/Q0kXxbmmGY8Tl7oGrdkJasPXMwelzNmNE
lbe3qEZYC+6zm2WVQ8bI3+ArjX5iWnDEKXgmJnyM3JGxcfmAZjau+ylye4xY
bh/UUZivBa+fRj2eiB8jc0IvblSgRz33aNc+HSPGPrSJKXEt2D76wdLzxxhx
9Il0NpLSAkn78xt6u8YIMZ+4Ho5ur9eQtxkYI3Z1Hv0NaK+csF/bOGPk2M7G
lQcXaEGi+w5PWSEWoXyreW8vrQXjf6oiK9aziFFAf9X2hVrw8pDX6XW6LML3
9Cb9Mvr6B6V96VtYpE7a7EIpWjHz8pIoUxZp3aE4pyarBWaukHnUgUX21Dqb
T6NTBspqRCNYxGtkOd+5RVpw8u4uJZfbLCLVMnk5Fa1t8Mu/OoZFkh8YbGhA
18QLrjqXzCKy3QnbVOSxv+b7I/uL8fnLSnteoktnBnsNXrBIyK5SqV50YPpF
SHrFIp/X9J4VWqwFC/kej+6tYxG2/Iq23Wi9onGLql8skm+6XKEJTXe69kSh
n0X89tiMsdAN85fw+w+xyNnJm1PiS3A+XLYVak2xCDU4/Z4JmiHTIho+yyLX
Z4n0UfTkK9ejffPYpGGZzetL6OuLoxYmirLJpznqy3z03prlp/5KsolYdLDQ
B7TC2bJ3VrJsciPiZGgXOq++009YmU1WbLVTEFfQgpYrWm2+G9mknGn81A79
kFm9rkmPTe6xrsZ4ol3brCOYBmyilyeWewVN0b5IeneyyQ/WlH8yuuaXZMxW
SzYROGPDyEPfvpE6Er+fTd6M0aUq0KoDdQ8sndjE8buhbwt6JNrhb/ZxNtno
0DbZhS7VH98j5M4mU1JvM4bRgSOhGc5ebPJRTujWFNosfjFfpS+bLNPLyOBd
iuvbONdmcQCbPPuTOSmI7hg3KPAJZJP5m2V9JdDpyV9FGkPZZG8XS0MW7WXu
6qwZie2BbVIKaL2ZuRfXotjkleUCTWU0Lf22TM89NhF663peDV2/d7nHlkQ2
+dVrObcSfX9e2du4FDbZnvoln4F2ytm5bDKNTRYmzsUz0YxDnb4W2WyiL/q1
VAs9KXCmISufTUZaXIVWo18WCqwULGWTx+E1kdzfrznGXzlSzia3Ds4ace+3
nK/1vaKKTXzlpddyn7/kedVa+Ro2WWK+1JL7/r7j1uFnP+LzF2s8Xo7Okx7s
bmhkk/bdO5hKaP9XAXqMb2yyxTFkcDHawEPybugPNoGTf7/LoEUXpw53dbGJ
hXYujzga9l5p+9XPJqbb1LsF0J6Rh2s7h3A+zCJkuOOb8lan5CeLTc7oj8Rw
x7+ZZ2FqxySbJMYePj6Cpuuwo37MsMmj7X9CetCbvOovt/NyyDOjHY2t6ISe
ENvvwhwSuePXvip0vcIR01ZxDnn0ee5GEZp3/5ZN36Q5JNq7VTYd7Vw7teDr
Ug75deXUonB0DF/zvC8qHKIrcSHqPHd9bc4bbVrBIX7Tfw65oRk5Lh8+r+WQ
jA0PO43Rdv2GZQ0bOeTWgs0JG9C3FJXSPulxiKVTX7oKejyqNfDjdg6ZvKBU
PIPr/4WvqW6tDYeEpTJT/0OP5KmtqLHnkGPrzEfC0YqDfAvfOXPIzh/sMG90
sO1z1msPDlE5eKtsK9pMn5FRGcghLrkJPNzv+cI5wXsvQzlkcM6xqwidU9AT
XBHBIatPGS66j5ZSS3R4EcMh22BjsA36u/B8udInHPJD6fPeFowfooaDtJJc
Dlmw2a+jEA0BbzlFhRyi83Oq/DY6ZfTip4IKDpGfc7lkgnZtHg3JbeSQOPZ1
qacYrxLE6s7ktHCIzICrRRi6fnu6U3Y7h0Ro8Q04oNeWOUBmH4cYx+xRmI+e
Tvw88XiaQ460OOQ6yGH8OF7gnKQ8Tr4eHfjci/F0ADJDhFaMkyBfYYNctNHC
/9LPaI6TLfNfsnzRvG+ihkw3jZOUl9mSAmhfZa8zU7vGyW0TT4clMjifP1YH
7/EfJ5I/M1JUML5XFa54/PziOCFl1dt+YfxXjFCsUQseJ28e0xhJ6DZdCdG5
G+NkviF/swza8v7onYxH42T3vyW3ZiW0YItVzn98DeMkba+yZjrmnwSNx2/c
v4yTdb63L9qgp+cl9X/7Pk42iIQvE0UX50Wuyu0dJ5NvLSzdMZ8x5rsXHJoZ
J2/V3l1XF9UC+dpV1YVqEyR//kGF85gfxyGj61jABJGkPj+Xyq8Fz1J+x54N
nCDNxs4nTNCX6RoWwaETJLHFr2EI87Fo/ZOXybcnyCVtfeG1aNXDWQntqROk
b92cXjEvxt/zudaW9ROk8rS/2mPM7wUlRe/JskniscFFecUUE7xWV+VLv5ok
p8VZqa0DTHBeuzTp5ttJoij1Js4abb3+XJhw3SSJHG5Saepngs6mtQ68LZNk
SCxi8n0f1mtbU8SGhiZJt/VYWRHWN5G7A12q5aYItcz8tl8nE9I9DJZ6eU6R
wlrtfc9amPAjqyrs07K/JM2tIdjtDRP+uTTGqvv9Ixfvfn+r8ZAJK7fQZp3L
ponAKsV//JewfkrPWP61YpoYnhqvv3CRCWulzHfveD1Nor5MzJsMYIJub0zK
yk/TpJ91Ouj3BSbsDF9hMtIzTXKgT/zLOSZ4tpjF+ErMEDeWyKqXPkwoORW1
+vrxGbJmXMZnAOtLvdYNNjMnZ4j3Xlv6KXSlQVvQSa8Z0hx6VnLSnQk1Mqot
5gEz5NwR13ga+vvzooAFd2bITPu+uxpuTKAItr5PqJghtx2XfIs4zgSjh8uO
5srMkgj7CINSB2xvjKjqa/lZ0jVEnlijl0b86/q2bJYsFvW+M2HPhL++TQ58
GrNk58a/Q+vRmbtDbffBLDmtX2n57DATJHlGrWaOzZIzfMD4aYPvm2iTkjg5
S+6MFWmGoAcHaz6rnp4lxsMWZZro119TdpufnyX6kQOeFw9i/ZpjbZZ8c5as
e6F0Su0Ajv/hCoMdpbPE4eGhBbf3YT1tlTnPtnyWCPH2jW1FF5vcr/SsmiUG
L/UcWHuZcEvbC+LqZsmUktakFXqbmJrucOcsmRHSFlW0YkLGi8g1d4TmSKvM
OuPmPUw4u/iw4k+bOXLqtvL3pzuZ4GDO3Pvdfo6Mvog18EHvvMJz7YvzHJH9
ytm2Ga3anzz6wWOOuPYdlnpnxoTG/L6K0sA5ouhl1dtrygSmqefhqCdzpLRC
OHGrCRPkA/RvR+bOkddyUfnz0bQ8qTfXCudIg4zo0R/GTGiXKWJcqpgjy+sb
ki+gr//6N+PWOEfuaB+8UrWDCX1+QXFG03MkKUlH7OR2JgzsXXnsAYUCE3S3
+YZouxFJXoV5FPCy2ZW3BG2i1L1Ojk6BX0uEWj4ZMUEx9Gr8fAkKeF4MKybo
GEUP7QgpCqSMeFbLo0WfWX8SkqFAdmKt119D3A8MqfPT5CkQXZleVoSut3zv
OqNCgXadG/6b0IZD+VR/NQpUuS7okkc/uxqfNLmCAv7zDUfmtjEhtfRkI0uT
AsLK3aw36AtLxXUHNlJg2uhx2mE0u2Sq6aguGotNI7SLRad7tx4Fkn8k22ii
rYKfJnfoU6DxnXYSD1pj0Eroixn2d1PCt0wDnG9L0/Jr5hToOJHaG4PWf771
tJ4FBRjndAsD0QciNFv/s6aAs75OjC26Z1wlcv9BCkjbPcswRXseltcXsaXA
v+WTF3XQoUyBDC9HCpyNfeexCC11b85WzZkCfXKnw4TRSTzjEt+PUSDoz+zR
WX1sj8vg68gTFHjQ4U0dRRc3dPrpn6QAZ1eHcxfaQKeFMeFBgTIVw9Cv6I/J
HzvTT1Og4VuW2wd0j9czYwlfCrjeSDlXgvZsy5ut9qeAmJleag56Zltanu8F
CpyzZ99+jA7JSnRedQmfJ/5+6wO0lEy03M8rFNDRqnl6H50UcL0uKpgC44qs
nihu+/ouX94eivPXYvw9kts+c9/102EUuPWl8XYYWr/EfSA7ggL7NKNEQtB1
y5wTHG9SwP5K2I4g9IFrNntkoijgSH1udIXb3rE91NpoHE//FfTL3PYe3FF6
4R4FhtY1XbuEnn1FTq6Oo8AiuRcfuQ7VWK/Yk0CB2rjuZu71Unc0mu89wPa/
MkkK5LZ3RvGaWQoFRD/2aV/lttdZVo8nlQJ/mxJqr6GL6sTG8tMosH/tgWXc
9m/Vpj469oQC66/+3sDtX13i9H75bAow5xQluP0/QGeJ1Ofi++zqnyRx2+vR
//JKPgXy+V7RuePn2fLDW7sI2/f1ncr/x3dLs/rvEnyfzdN53PEPSX/flvAM
+5tu9rCS217JVzf3lFOg3tWZhztfSf4l26iV+P301CzlzqdGV/ZUSRUFAoaN
KNz5LjZ9lOn2hgLnx9MSR7jjWxBnv6wGx5/yfHaG277g0HchHymQp6L8T467
HocCzus2UOCPnmjMCvSpfWe0RhopYGbdxNqEDlFzvLfvGwWuiSn2HuKux5v7
zYTacD26brrggU6c2sVT/oMCgsZWn6+gC2t0j6t24/jefVr4BL11zZrF33rx
+lvBBpXoD7Hqn8IHKPBUyT/yK7rLVXojZ5gCAi9+HaTh9yUpNkKv+kuBpQ37
3rqhG55fu7pjhgInpl4duoq+5apC/ThHgSw58+gHaImaA/O+8fGALGfeyBeu
g6pnhkV54IDtCTDFeNCwxu6ctzgP9BW79Lugb3X+/ftXkgduNE6tuYYWB+Yk
vywPHCuZelKDnv/v/tgiJR64p/VJzQLjUX3aulMPVHigOfLB1zPoG9b1w6pq
PJDyqmRbLFqskP+P1ioe0Kep6/Rw49cpj14jbR4oUXkafQXjn3Dvtu+nTXjA
q/xMZSvGz/d3Og5MmfEAvZQ3UIAbXw38Wy6Y84APZeyHNlroYU5zqBUPaF8P
OxKNFjy06FPiYR7QKYiKP4Dxmv55pLr2NP5+Oth9DuM7X3lstlIc9idomLfY
nAnfdA22/0jggWHd19Uz6OzSwY77D/B6yxFNg904/4WbJSRSeaAx3nCyAZ2b
+cOLkscDO79+G5rE/GMbp7Sp7Q0PfJYo++CI+anYN6MqmsUDGcyl3VmY/yIm
LA7tGcf3uU/co2N+dPSe5ohM4Xg/rP/pcJDbf7PlQbM8IC3WvlwW8+mRY8Oh
pwV4wa8zy+/6IZyffWt2mSvwwh7vzpRwOyacWFvWImDCC/ItneoTzkyoqG96
UmzGC3e/ly+zO8qEBW4jAUfNeeFcuNjNd+jy/1RUq6144fyF6Yb4Y7heZG54
XrTjhcfS5XUmLkwom3ISmvDmBbmyLf+eYX0hVC66uSuJFy6nbqwf8sJ8u8Mh
6cU4L5jOVc47FsgEzm+5+T3R8yBGh9//azLWdxZG86IM+KDp0/U61msmBGwP
Sszv4QNv0QGd1G5cT7bHbJj9fHCpWuCPDNZryt4msk9+88HS15+tQtA1D8Rv
J4/wwRojTdNjvfi9/IsPvvWXD7RUop4pY/33OLPQzUOUH1oulWhFDuL6kujT
0VjPD/TyVZmqLMyP6rWTqRv4oWPWxSgc7U2yCpR0+OGUo0EICy3n6qW5CPjB
uvnN5As2E5yqKUqCxvwgErjn+O5xJkyelRXsO8QP9uah1U5Yny5rM/6aHMQP
AacVVmzF+vVapU62VQg/aKdu2ZWCHkvVCKaF8cOJfw+m+ClaUOkpuvbEDX44
4vqz9Q3aid4QuTqWHwrefHm9Devhx2v2G73M4Yf3C7Y+U8d6mnHtaGF7K7Y3
9FpNuKAWRLtbh99o54d74z/P/UDPWe5w2vqTH+Y3L05hCnH3jyslHvXwg7S1
365P6FMFQ25uo/yw+NFREWERLcjv8FaZplLhmU9zlTPW+5u0A6NkV1PBfap5
TZYk7l8dZNfHr6VCyJXM0/3o0xFZX5ZqU2Hhm26GMu43nnR/lVPTpcKam0Q6
Br0katWD9YZUOGy8P9YX9y+8o82ZFgfw+YG5pYq4v0mQd931xYYK4p3CflZo
ne08owcOU2HW0yfnKtorceVaBycqpO0NuzSA7jG7WOpxkgrsvHlZabhfqk1X
fxN+mQpNL+KnRXD/daz5xTHxICq8dpQW34Dm47UUvHOVCnBkMsYerbf/glnc
dSqs3izP+xSdQ/v8OT2aCseEWGt24X7OdM0xb8Y9KvhlvmrzQvfbzkjnxVLh
6qpdU/fQioXLD5QkUSG+5XVgJzrK6VzHm3RsDyuh1xX3k8wb4pdNMqk4Dmmy
EegPZY+UPmZTYUt7S1kWmir5ybk5nwp/jbt3DaF9Xqr86XpBhQEf51xn7v72
T2nEsZdUULeyOHwFnbvQnDn4igoPhfr8E9ED7n6nWW+pcJcoznL3yzZLPk7x
fKbCo/DGZh3cT4vKehaUNVGhd5jTZoV+KbnglPdXvH/H+AZ3tKrAwb6+Nirw
R0/1J6K/zptNfthBxX1iDilCX5tNOmzziwoWJVl93POuYVZP88c+Khi8/bNm
Cv1wKPRW6G98f05Pk4gC7i/7NXbqD2H/UqJrlqGL2z2rC1k4/lM3MozQl9/N
Po2fpUJ2Dtkehl5b9cB9Hw8NWG2bz91H974wWCnOR4OlFgM8aWjT/GsPAwVo
cP5PAw/3vGM2a5WtnjANFhY0+Nejc9LqZSdFabBTgG70Hb0gUfrmCSkaLB9J
rB9Fv71XYqoiQ4MivpqIf2i/KBv6D1kaRKcVx/Mt1QKNyLlXMfI0EGkynxFG
t4c+DNijQIPpybOZUugbgdt0hBVp8JZXKmsRWj+gb7xamQZ7DgrNLUOP+4bl
BSynQWuPQRL3/OixF+PkxhU0GOV7fFMDfcD9kzpLgwZ2N+Q/c8+jRFy8up9o
0mDZj2tOa9EVTjIPnFfTYHNl6zZt7nnR4VKbpeto8DJo8sxGtPKBQwu/adPg
0UjNxCZ0syWl8fYmGrww2PxWBx2yKznSbDMNEvU29XGtY2xoQgMaXF+QuY/r
IYN+6sutNDjif0mae38SuV7pt40GV+OSlTeg92zSvLB2O75PgXJ5HZpvXcPG
IWMaaKsGMrjna4Wa3pxUMxqUyEwv5J6fHV+xMNfenAbb1zUbq6PlVcpcF1nQ
4KPWm1rueVmdgq1akxUNKgPqYrnnZRfleLoirGkgMfe7VBq9ZkFK4vaDNJCa
UVAXQ/eIGR3ktaXB4bUneqjoGMEB6Wd2NMh8Xzc2g/NlzB/e4O1Ig4oDpjvZ
6Jk5zQhNZxoYdnRP9qMdON78ySdosGjyjM5ntNTIwpc2J2mgmen1+TX6zUDZ
OelTNJiXeL+0BK3RwcMOPUODUFWPM/Ho9m8p2fq+NDi0Rd0kAn2jyejEjD8N
hh8udr+A5tSEd3pcooFi78cUG/R3oaZj01do0H1VbNAEXWkqP3w1mAbyP/Tv
beLeX5f+LyGMBnmGySrS6BUNb6Q+3MEZ6fhLfY3fy3xJsVjrGBrYtsdeyEFP
WOxd1nUf53fOxeY+uqqpa9W/RBpcdCo0dkXbtvAYqafTYN0JKouONpDb8SH/
CQ2KZ+Xih/B7X3nwhgVk06DOMiPzM3ry+xK7ffk0eC7syhuHvtWh4xv0Atf/
uWJ/FfTrXu+Mnw00kDOriVqE8eaJ2nMttyYaBOz7eWcC49ft43zFk19osLLI
e5Z7Xm/3+1aVWBsNwnaHUUPQf4ey2zb30iCyJZ0zgPFSc7xf7P4/GrRXJLlE
yWqBtLZWtMosDc5urx11Rk+f9ZHPpdAhTPdI5wZ0zRRV/S0/HRbKulFaMV47
zShtHRejw4tfl9csXMg9n7T12qNMhzZ786gz0vi9O8qs+6RKh3vdK74A2ulV
PWeXOh3eCZ4IE0QzL+ufNWPQoSc0bXsc5pO3c2p+2zfQoey8gFwJ5puJv6wA
PVM6JMgd3fBVQgv2joaGrfBCR/EdeSKqBc/M9U3TztBhHkNf5AhaMWdaWM2X
Dsven9JYjB466R6hcoEO/p+868MwHwYNWt5cGkKH30q8BQ7CmB97Fe5Kx9FB
vV9g6YSAFki2FzzkraJD1+pe/md8WhAhfP580Ws6qMCqczZoQR0Da9d3dDhe
emH/9DzMfzENIs11dNgv4mm8CT22e9gnrYUOFib0gSwezM/VarvMh+lgo20R
7z+L9Wlm7L94OQEoljL49GiCCfznL1luPCUAiztoNtZ9TMgfHZwqPy0Agiyb
2Tasd5ycrRMNzwjA+6p1TEd01S7NAQt/ASDDLfquWB8FKrYFnAwSgAe5lWt9
u7B+fbshI/meAPhITIZd6GACr+QIj2ilAFTufhe68SsTKGm22Z0SgiDZsSP/
CtZjnvezwyUqBcF2a3Xj3VgmPF8ZQhc/KQTeBYf2C2O9J27sqXFZVBi2zWsI
8yZM+L6q/rPvM2Gw3717WYgIE3ISiHKXrQjwF7UmLK3QhEPZ68UXz4qA4dQH
7+YTmnAx6MGl7+miELTigbrPQk0QOUszts8UhfH6A1RLGU24f8xNoidbFFxy
mX5MaU14arIxeThfFD7ETar9ltSEHvFPVbzlotCRtz/7qJgmmCRQ6OqfRaFk
RufleaomSBcdjvD+Jwr7AuY4SzkMyOxbHCtqKgZj/boHDzQywDzt5vl3O8Vg
58LVm40/M2DsOL9d4G4xCFbvHtrUwIANvweV/+4VA93qva+W1DOg8k9ZVre9
GFieFNw8UsuA5rH9lc/OikG6PflS+ooBc9N3+l2SxcBia0766FMG7BYX3fDm
rxgInElwmI5mwDV+3kXf0Yqj335x0FVTnJkR9IN00yPD6PWdba/k/omBVuvH
Y51ouaeZu06iDfStPN+iOy3Nji6YFoNH+TaRUWivmOvRjjNisNHQYVQDnXn9
oq8PWqXAyFcV3XPRyyYcfd7bgWcp2vq4jWIR+tOgtoQkevMmjSzBWTFIfO2w
fuoOA6jfa6tz0bczikOq0aS+/PFr9CEflmQ52qfqaVgrWjTJMbEYPfAkdjf/
nBhc5O0qzEDXnT/RZo1mKh/pu4mmeR6ucEOXfjX2DkODs0XyZXT34BHeIHTe
Tp3jT9Dn1usu9kH/3qpp+hIt7TaRfgqtrK2k2YzO4O/bcAJtu1JG4jf6C0X0
jRP6roIQZw6tefi4lS36fwXoCPU=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV13k8VF8UAPA3I0JFRDLzWmRLJKWofnFOISWyE4m0aJOQQgvZyi4lFEKW
siUSKfta9hGVrcVeWSpKGOP3+ms+38/cue+8e889Z67E0fNGJ+gEQZyhEcS/
T50Tw6yyrxfV7XJUFvRVMtUWaDAcP4mbAOnAI/nX6r26cnx07DPx4/DgBtf9
O1ZT6v2klJerjAPsrtk1Tuzlh/2N73PjxF1AN2bJtqNWYiAVvDJlfrU7FLUt
/ymFa4GtcyzKVsYD+r3XuXRpr4dvvm1VtpFeYL9dYWV67yYwPz5VfFvcF34N
HrLUtlKFKg1GQWXsDYgjZVZU31IDJUm1p5OrAwB++FwUwt0QSz+SJp0UBEpK
ReuVRPcAb6/3QzOZULjgPHmsRFsHXn5ubaw0uQUPbI+2vHp/ABwNjutYRYbD
El21+ju9htCz8aZGiHgESE7/EpW2MoeI+BVl0ofuwlBNnAJhYwk6guk7S2Ij
4cz9N5zwW4chf6xh6/jqe+Bblnd3BI6CvbV17k3b+1C+sYKsXXUc1jaNK65J
ioFt3LZxbBE7CM0SXmco8wCO2rCWummfAa2VyclfT8ZDT3lHRbGPPXjU3F9a
bpIA29W/jBx+7wBbVBRCLCIT4VTClmCzXidIENW/ESieDMmjervKD7nClcao
KrOXyRDz1KVr/3s3MPP7TJc8lAIiwuwlPtaXYfFvJ89XsamQ2HOy+0/YNXBr
i3AbWZ0Gv4onstzAG4yDe/JflKVBrarP3Ji8Dyhqyvz2tU2HxQE3lP5b5Qv9
zwqcViZlQNwBb25TkRtgeKfzzAGZJ+A0q1wQvCcQFPZLpjFqn0CMKcvxqW0Q
8HLZDw2ezAZjg8chad7BYFPIySk1eQoWHFo6810oiMrdUjwYmQOX5YwLPL6E
gxfvM9kA8TzIGZVjGVlGwXrtcP9cxzwQSjLX9JaJhla/81+7avPAwvdK2Ko/
0SDFpZCheOk5zBjttY+Lvw81c8mKba35wCtZ4ZfLfACLJyK3rg4uhNCbNizR
7ofwfNPFyL19hWDvLnHm1uEksHY0nnLa8RL67ooNlH1OguxRwcKq4Zfw7O89
S42RZDAa9t95RqsIiGZj+UaxRxDdc1njOacE1P1nVL+XZcAu0iL5o2kpyOs7
MkoPZ8I3S1Vu3qxSOJL3fvNediasGnE/lrWhDEJq3Nrd1Z/A+dMq0kR3Gbzd
cv115tmnIHw8+3HKtgrwHllS6bnhGRy0SMz+8bMK7pvENJWbFMJ4lwn/Q0Y1
HBH6eeJMQSHcsOY9YaxRDbKaVY0tDCrOY+cZ+RHVEPF79Ne7vpcg4KDmd0W1
BqZmdzbUehRBtXeHJc+1Wvho/lx/64dS2JwpxEPy1sFa5u1W3+BKeKNYfaRR
qQ5Et5a0PXlTCUdy3F55WNSBU9AXUF1YBSH5nxy/pNdB/bp29WM+VTBcltWV
qlcPivGi1rLXq+FB+76cTXcaQFRrFftQUC0smvey0l7VDDUqUedMhush+rS5
tcKeZshZGTzXurEBpNoUjgg5NANNS+1JhmsDqKe9P9ZV3Ay546TVWd5GKEyL
fF6g2AJ3z7H1JRWbYNR4pGh/Uwvwnmu+sU2rBUwfR9VfWNIKUSlaJxUqWyH2
sLeunUQrTAcGrfYfaYVe4XONB7e2wm7+QzeXLn8L56/tblY73Aor9ZUPPjr9
FgKMRlsXZrVC+FrryhHhNihm7+6M0X0LbfWvN7491w7ShmPDlUFtYOx7fuek
5gdgeGrvOJnYBrN15Uu6XD/A0qyEIP6CNgggYeh3+geY4TVWNOxtg6UphnG1
Qh3QUlZw4eO2dkjbcMCj80sHXFby4vwdaAevhNvqhUFd0CQoIqKI72GbcoXm
Vp5P4Nq0HaInO2Cy51iyjU4fCCg+H3jD2wk6z76oMU/1QXKIUvAs2QlcrV/r
Rvz6gKUr22Gt1QkSL4dzWeV9IF8vckE6shNWNAvZPtzRD59qx1NzVbugRe1L
oLXSAGiXpwg0Xu6GA9ffbZZQGAKxPKGPNNonSEj7Zcg59h3yezUamnf2gleQ
zQHi7S+oOBPHtBjpB86dAwyRsL/wW0ZNMOvcEPBV/Fh/1p0D9OmMpUzpb3DE
7pGWTj4dVeaP5Bs/GQHllOtPlsnxYIPvlqaa9eOg/E4rSOQJH66+9X06bewH
+JrO71ofuQS/T3362K70CyKsSzZuj1+Kyd9e1QmETkDXFU3LlHBhFFj5aLy/
fxLSzxWOjNmJYPDp53YJUn/AQ+f2oB9tOf7BjP5TnlPAv+qmvn+0GLpsrspb
XvkXam/Mhvz9ugLttqxJCH/9F7I/TF/UG1+BB1WuBi1u+gs9O67wxE+uwP92
bDlK7/gL+X9cyW3zK5C+O1lwbOwv3OV+wN4lIo5hhr5nqhnTkHzs/vZnauKY
7qi5xsV5GlLqGl7Ph4jjpydVQSyJGWjs2uSgJMXAltEFI5tlZyA+KKDp9joG
lilo6UYozIBdlmT1TwUGJqRXLzZXnYE91iUXUrYy8GhqTUi37gycNhVs7NvD
wMG412FDrjNwssFLpugUA0eDG+7MNc5ARdz4/o40Bn6sXzxp/XYGqiU+vGvM
YmATv55J2YcZGGnWHSvJYeAT/0YRn74ZeL6gpTyykIGOvk13eadn4I/S8kny
DQMnr7RELZOahedhQf/5DDFw9kxbjNzlWdjYtyYvR4KJJiqHwxU9Z+EoPaJm
RoqJmbTBG8q+s6Ci9rMN1zHROnrKSS10FipU3AYqFZlYXs3Ya/hwFizeb36X
8h8Tb66xnXSro8Zb3pz9YMLEZe9GdV8z2GCq33eH7ctE+8RLuxtXs8H2hsjm
gZtMrLKfV22VYsPo5mONdYFMvMQlJNmtyAYLD6ey4FtM7FDaMj2+mw2ld1ep
jMQwMT7ocorYWTaEHdJuY+QyUX7XQo7dKzaMZYpv3tbNxKfpGbIfytjwzsJE
YOojE7eIGBjuq2FD0NdzJ3O/MHHnUHSyPIsNJ8ZMw1cNMfFAyPr9PwbZIHrr
ZX3DTyY6d+hFuwvPgWz5VoYXD4mFThGbg0/PQUDEno06G0hU79pmNecwB+Fr
WiTubSSxQrPHz8FlDtIFr8b0byKxTkymw8BzDloCa6SdVEjsLi7wFL07B68q
+BKPAIkEf1fDg7I5qOn1D7xnQKL2Q4mTOWIc+MHuYl90JHFLtIBMDckBdslc
q4oziWtCZ/s7JTiQo3cna/ICiTPu7UcXKHDAVu2a00lXErMMA6zNkQM1DvQ9
ch4kLqP9NJ07xQG/bcFWq4Ko5031iAg7cCDtk+yj7GASR0bq3spc4MCJyepZ
tVASaz4kGxpc40ByoHOVYTiJ7k8P6iWFc2DwtHuPaRSJn2zKNPe95EDRD32P
lockNphmcVmXUvPpt9/ZnEzii/33K5yrONC+mVEYnkLibVUXjG3iQNJiiy3a
j0nUEly3c7yXAy8FJ6dCs0jMKAlTvrtoHhKdw3huF5DoutJm7RereTi+0iPs
9BsSjxoomXXbzkNTaovZ6ToSD/jQAt/bzcOcnq6ZXT2JMl+TfjY6zsM2/zmO
eSOJbXnDZS9958Hh9UKCwSJRSdfZJiJzHgL3GS8U/0Ai6alxJyxnHvI2jlwa
obwwV6Q2MH8eRIyKJYs7SPwoVqDoVTYPK42MVMy6SAzum5071zYP1w6Z7z35
kcThy36x2ux5eMPTd4q7n8RvZvKnEgkCr2jyv82kfOTHMvpqLgIJq1RPwwES
90sObGXwEhh99nbi7UES1wbcjFsqTKC9/D2hyWESo9c6qoaKENjFqI72+0qi
QNFB1iIxAt1I0RMi30icHpPjXkgSqLbvapPcdxJbTBrs56QJ3GbdvmfLKIl7
xvJ4rqwj8GxT3fqnlItuxiX8XU/g9QkjM7kxEh+9dGib2EigfvNKv2XjJHqs
Edr5bTuBdkGFe2t/kDhZON1+cieBFwVsHDf8JPGMce/5AXXq+eKJX25RNr3x
LOmzBoHielwP9X+RqDBiuui9HoGPfG8kZk5Q+22iWxpoQKDG82IW1ySJGsW7
L6gbE1gQvfWtOWXL0I1dKQcJTNiwa/8fyoN/pMMsDhH44rh3Bf4m0dmG1Fhi
TaCSpc1if8oBSnwZLscI3OihI77kD4ki9+at19kRmGPO26NDOYH2R7j7FIE1
WuUufpQVzozUhJ0l0Luu8XMR5RetvZc1HAiUz7oh8ZOy5n8dilOOBJ6a0VRd
O0Vic1Jzb/oFAq0WHF1rQHnQpUhH2J1A9q9Vlx9Sdu7J5VRfIdD5g/NQDeU5
rbRcdw8Cba+GyA9T9n8Sb7fBi4ov9M0enr9UfGKRjC8+BAZweW+XoJzgGdwU
cYNAlxXCC7ZTVhj29t4bQKCHfnuqHuUXBu4q7CACPzjJrrWhrFF4/lt2KIGB
YccvnaPcJGH34Fg4lU/zw0lulC0DrYzEIgjMtxHKuE558JcRT30kga53dwT7
UXY+tO+lxz0CbRrLtW9S5lSCw+ZYar4rCz7++z5AQWXt4AMCmw4d0ff6F+9d
hXf3Egmsc1KOdf8X79zaQL1kAoUvOjc5/IvXTlyd9ojAfSPbF9lSLmgS/JWX
RqDWjhNSBpR3q/Kknsok8BdHkbHzX7zxbAsym8CIda0jUv/i5Z1Y0pJD5f9k
QCz/v3gdv5b75BH4fiRcbvTf+nZ8uqhaQGDmqHREw7/13fVO7nshgaZrvLsf
/1vf9IaeB0UELuP00r0piyyrDDcqJbBK32/hQcoJVwq1eCqo/VVM/baeskJ/
9nRhFYESdJ/MmX/7r5uada6WwBZfC71ayhrPY20l6gj8Vnqy8RZlyxsBb/yb
CVzHkLZnUB4c87y2s5XKjy+GQZ1U/jmZX9r0o43AVzk5gVGU/dcdu2feSWCU
Op88L2WRcAu9RT0Epih5Nbyi8jl+Wp9W+ok6j1EK+vaU8+t2npYZIJDrhcR0
JXU+disrr+wcIvD2zrE1Zyk3xsixQr5R61E3sV6Qcr/98u2/x6n6oPhsUI86
X8sEf/BWzRBYG2O6IJU6n63FgTf3zRG4wUFv6j/Kt+2leZrnqfyaM9vaTJ1n
4TpLrs4FNNy+3/POKHXehf2q58YFaOifY/SRj6oHrcpHrl4UoqF93gKlwBHq
970zMzPLaKjPF9a0kLIQKv3lFqfhwvciEzNUvVk6e/8XU5KGve26n8uo+tSS
ttUpUZqGhINsvDzlWwdbxmXW0TA5Z0ftnSESBfO5RzdtoKGr0ucdVlR9E3By
HNJWpeH4viUfGvpIXDyk1X1hPw2/rJHl3kDVz4a7ny2n9WhYL0xM2vdQ9VXz
SoeHAQ1/hwcrp3eTuOjh03cBpjRsTNqbQlL1l/8wkxVvQ8PY0hXmX96TyPv2
R3X9BRrK7L6w7FsLia+9gjQNL9HwMiGxar6Z2i8lmcp3bjTkn6+5IkR5Yeih
si/XaDiaFKWkSPUHnn01L6du0nDycIKvNtVfFpTGZEvG0vDDBGd6uozEzp2a
ez89oOEPpYwvDaUkZr8c+Xw/kYZ7RvMfxZZQ+ZOvJiz8iIYvQhubNxeRmJP1
yYXIpeFjtYubdlD9yzpWckdPLQ15tUnTZ5lU/2Y0tEbX0fDWuYHTJhkk8kW7
nDVppOHxYYbNrzQS8+5Ux9a30nC30c7vUo+o9w86OV/YQ0Oh7WEhxxOpfHbP
qIqcoKGgarPogbskhk4ZHzb6Q8NtTnlQfIfEYxfZv5dM03Dag0dX7va/9deT
9ePQUEreZ/Ffqp+fODUecIGPjjaPZ5Qc/an8MFfWN1hNR7MLV9fXXybx7JZX
HXz76bjrwVy14mESy1raM1/o0XFYVqtD4xCJoud+eJ40oKMq7/i4qQWJpSnS
MtWmdMyzb5B1MqXyVeyW8/UjdJQd96jy0SPx1fTxRVMX6fg4dGWduBr1PqUC
av0JdKy+em+Qj0H1x0NyS+8k0VFq9GpCqRiJz6c0+nal0tHu3VdbZ1ESbZTc
A+Iz6Djtt4jdtJTEZ4l97ZbUPUL8v5CW4wtJPOT7woFVT0cRuxeu9EkmZuw7
mlDyh44tvOnIXU/9v1OQUIdpOjblemwJfM3EEoHPXaWzdGx8Wh+5uIaJLW8P
i5UTXFg2YvuIr5xJ5YFFaCU/F/IFJbL785mo7mxw9fUqLvSWZtxf85Aaf1/9
YOseLhRaPEFmXWLi7++MpYORXOifpjIhtYKJEXFDtbH3uJDTO2hfKcJEZf08
T+NYLswQKB63FmKiU67eeFkiF75xWyscws/EUbfrTTGZXHjp/WhrNZuBA9yD
wYYVXEgUslzTPjOwfXUOX/EoF3Il8K3amcrA58baXBGaCzDv+j23VOr+4LnX
Lz5vcAHy5Td4Na0WR4kenQ9JftzYHhVlkDIlhjtUfSPEN/Pgb5Ma4dZby9Fq
VfM07S0PGnUpeDAkRfF3XUivo9dC7E00E6q4vAyjF1i7GEnxorHXbsuQTiFc
9vH5Q3oVLyqGSWWtV1mK3Ne8TLY78WHwJnX57ObFSKRZZ/cK8+MyOzO3CWc+
dL6fHSJcwY9yhYHF5GduLJb35xVyWITmcs4S+R50FNJxVvAWWIyXonhKZWnz
0L2h5a170WJcE7w4eOvkX3j6AKT6rZcgz+hoeP6bCTicrSK0krMEn3JHfVS6
NAbX/RK9utMFUHgiXHK2aQCWuC7Usc0SwKHCwT07cgbg/qlzwoPZAvh6Is47
+M4APNu/PWk8TwC/JXkZnTk4AINCrCp6qQB2TPuULOrrh/0PCF65twI4JZIu
+HW2D5YX2IRenKXGu67TlaXuuVnDK2MEdAVxIsH84OhYDxikhV97c0AQ16TQ
V3MX9sCv09xHfA0FsbvTvXi/Tw9s+z4iNWMmiEb6Z+NPrOiBitFXTwZsBfGq
c09Vg2Y3vPtlUVHkKojr8isGHVI7YZ599+uZJEHMWt5qphzyHgyFBLbVzgji
fvuLM7LfWBDITWd2U3Z507lwcJgFVdO/535Qzt5ltCZ5iAUqvT2VjFlB3JTm
6rxmgAWMZ1n6DpRfWMbFiH9mQa+J3klRtiDevWpFE3jHApfo4Mhjc4JYovOd
MV/Ogqzg6+5ulPdtSQ0sKWPB4HUXqxDKIcdduD1KWXDwtNXaAsqhJTrkXBEL
1HYoPOHnCGLu4c9NswUs4Omur86hvN2pQHs2iwXQUvq4hrK5dMapV5kscKt6
FtRFWf95bsSVDBZ8y4wx5J4XRL7QuSXsxyxouna25yBlEVkfv7kkFix0tik7
R9mzZPl88UMWoJ1xkjdl+aslPh6JLMg98N/pTMouYTpP5h+w4PvujbrllFOm
FE3K4lggpSq58R1lzJDl9oplgbW8mPD3f/M921K+K4YFUasX/Z6n/EbczJ9+
nwX/Az1sblA=
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV13k8VdsXAPBzyRC5NxIlUuci6p5LCSnaC3lJvIyFjJGkwZCKJnNJ0vDk
JyEiUyFzpswqyhzPFAnJ/BKS6bf7636+n7vvOWevtdc6d2094WJ0koMgCHca
Qfz51D053FT2/eJ+e/O/+cb2sGGVlphr70YTNC2+UjeKrfg0Iip7owPyiBYT
/OMBcSnfyzLn0aBObMd37MMf27OiN3ogCdt70sPYUiESz1ckvVDT7NDPQexF
Xfv/2cncQI+mnx/8ij0S0FplF+6Lmhl1En3YxxzmSh5uDEBN7SaXu7GrtMTy
K6NuotxUDZN/sRWY6q9+St5GXoX3clqwozhsU6Tj76BpfvWIemzefr9nR2VC
UdulgyvvsAv7mj9WmtxHyc9ffq/AdjVw0LUMf4A6SpyPFWP3yN/SursxDAle
GChOww57uqFM+vgjNDrxOOc5ti4jVe1NVDga9XoiH42dN/FBaVLyMTry6WJG
MPZZa+usW3aRSCVEJ8cHm6yfZG+Jf4I2FRxTu4QdmiYkaygTgz593dBmg60t
kZDw/dRTtEO2/Jsx9o2ayLXlJrHohsvDawexdyuz7pqHxyG9skh5Cjt2/ZGb
wRsTUMOaZ4U/VNhw9eP/qo4WJqA1+T8H+rGPBvZxMI8/R6wNmg+bsdfMuHkX
RSUij58vL77C9mwN8xyTTEHVlbPWjtjGIT15r8tS0AhDL9YIm31AZibALhWJ
Vlk57MceyM53k4h/gXyc//EQxjb8p9P5b5l01Dqhk1OozAbWYWaK2Nt0lD7n
zxePzct59tvQqQxU0KHwNRjbpmA5s9TkFVIJyN9kjr1e7j7bLDwTUcwLyZNK
bPDlzd52e2MO0p/gluHC3n7wQVCWaw6KiLj0X/9uNjQHunzvepuDmBd9Zcuw
pThZL9iXctHrTN4OT+yapQR2a3Meqi3r0viqiPc7Ha4kGVKAfj6SJaN2sSF3
58Vwna8FaP9+wRhXbGtX4zm3vYVo6z3TgAPYGeOMgqrhQhSf8fjeyE42GA0H
qTlrF6Ow3OgYeeyInitauctv0BTYB0fLs0FD3Dzhs2kp2lisEeeEPWKhwsWb
Voqy+5a2KGJvHvOyT6PKkJ1IokUNmw0up5Wlie4yZLvcnz1IsUHIISP5+Z4K
FB+iMMjDYoOZeVzG1H9VyPVZo2vHNjZMdpnwPROrRiLOdUrh2DeteU8aa1Uj
B4eXF4yws+1dxPLCqlFhy0vz9zJsoJ9XD7yqUoOc17jWvZJmQ7VfhwX39bdI
PzVuhyOTDbteCnKL89ai5JWtnM6b2fCeXW37UaEWVc+Jp6zHts30LLphXoto
sb8ryyTYcDev1/VLai3qtGo4th57uCytK1G/Dt3aPj6dv4kNMZ8OZe785wOq
i6nt6d/ABv4VX8uDmxuQ9a6Oc/VCOF6nj1mz/mpAobuFTztjS7WybAXPNyCt
pMkOLuz9Ke32XSUNqMl6eNM+QTYUpITn5rMbUZDJFfGnDDaMG48VH65vRN6m
nWN6a9hgmvy/ugsCzUhO1uTpfi5c31Z+eo5bm1F4bNXSu1Vs6Bc699FMqRld
c7zywQjb5bpmg7pVM3pevlTgwMmG20bjzTxpzejdiTONvjQ2lCxqdj7Ra0Eb
tKE8dokCacOJ4co7rSgp3MPadYYCMe+De0/FtaKC3squ7p8UrE2LvcOX34rk
BwuTdbB/8xqzDftbUXB5uMLmaQoay/IvfN7zCVWZ506VTVFwRcF3+dfgJyTk
yJ4bGKWgniEszIZ2dEKqmHr+hYJK9XMnm0zbkd/jrI0LfRS8PlOT53GmHb0x
vqlngB3/1tO8KLwdKXHGBP76TIGnd0+Mzng7OnDRWR26KSAnE+XsI/9FbllX
fF+2UXC5XhVF/OxAhz8nqM/WUkBn5w6+5+1E7coMRw3shLsKIQvinahzbcXA
nfcUNOlt67DW7kS6njNfN7+jYEed8AXp8E40s7y7X62agt63k4lZKl3oslP3
PbNSCg6WP6d/vNKNbMT7xASyKRDNEfxMo/Uiqc+PDY9HUGAZsmAyINKLRrb5
/HT8HwXPHAbrali9qCJyttAtnALW+oKCO2a96KqfcGZAGAWal2wfrX/Vi/Tm
g1Ri71OgHHUsMUy+D1UHiZqlBVFgZ51olfy5D6nnV8pLeFKQ16/1oUGtH/m+
SeBRM6GgTcf3v7sH+1Fr/cIPIWMKZtPfiOgZ9aNDjez/hg0pULmqavfuVD9C
cmFSD4/g+K6Tny172I/0W5Flhy4FBQfEtmQN96MkpUu5ezUoKE6cuhAW9hWd
0Pyf4F8UBRXO0ZvMxwZQ4Z4FAScOCrK/nzljPTuAEtU8UzbQcDyd9hbZE4No
RHKT7bsVFgQ6tlucFx5E9SKeEtJLLNA5IRjprzaIsu8LNLTMsaDBPHBDesgg
2vd0Ip1rnAXdOufWc1JDKPBfbb/XbSyYkVFnpJ37hvw1xL4fTmIBx/yLtZuk
R9BfT2UcPu1igfKKbZ5x+hiS5lfP1szZAR8CdtfXbJ9EftsFjR7J7ADJ+6Pz
KRNTSFE5svS953YYnev9/EnhB6rZs11uT5UcJIwU1dJDp9HCM+q49IQs0CWS
JgcGfqLmfK67qWtkIeR0rmOs1CxyT72Ts2bnNpiFFwNO3nNoy/W8Jj4kAx67
qnJEKn8hX5th3iJbaehNr7rTtPU3OjN+p63imhQsOLc+kbuygJxKkvN9splg
omz1gO29gBL2nJ55+4oJL2lDNxUDFpCaqeXI2nQmWEfMuamHLqBb9WlEcjIT
yqvFdAyfLaAQp0r6aDQTbm2x++lZu4CkQ8vZNUFMWNc2rvdObBGprh5y7rZh
wtm4S5ofJReRiLBRt5UVE6rOrqg0Sy0iF8uz+75YMOESpyCzm72Ilrxn0IQp
EzoUds9Pai6i/MIZ8y16THh658pz0TOLyMZqxffrHibs0OBZdixaRE/8VXom
1zHhVeqLbf+WLaL43AoxP0Em7BY2MDxUs4jsC/e0ijCYoPYtImFH0yKKnVKr
OMjHhL/vbj88NbSIjqpOl7wlmODeoR/hJbSEtLlpHzUmSChwC9sVcnoJbXkW
8q98HQn7u/ZYLp1fQs+iWr3Xvyeh4kBP4HmPJdTOv7NjqYaEWlGZDgPvJfQg
cCaprYKE7pJ87/WPllB09/bPyYUkEHxdH2LKllCF6a+JxlQSDj7beipTdBkl
VKUHq94lYXcEXaZGfBnpLhOTj+6QsCV0YaBz6zI6cXFL68/bJPz2+nRiFWsZ
jbYoSRfeJCHN8Lb1MVhGAUf8uR18SFhH+890yWkZvRhTZSt64PvN9QgLnV9G
x2a67rx2J2FsrLZF5gK+3kCVJ7iRUPNvgqHB9WW0u+MJp9l5ErxemenHP1hG
nm+Dp587kdBrU3bgUOEyctT7Z7TEioQPpmmc1qXLSNNy8MlZSxJeH46scK9a
RpKnp75JHCfhoYoHRNUvo7hypaNBZiRoM2TVJvuXkfhaj9hrxiS8eHNP8RH/
Cjp5iXzw9RAJlyVsyC+WK0hhQ/BU1h4SThgoHO22W0HXtjf0FKmQ8Lc/Lbjd
cQUp3q62fatMgsz3+P8+uq6gkjUackO7SWjNGS4rDFhBAquS6jV3kqCg524T
9nIFZXS7FHpuJ0HcW+ufe5krKFMii3ohRwJPlvDb4LwV9OSmulqfLAmfRfPZ
vmUrSOPyNZbRNhJCvi4snWtdQWfKg0+YSpEwfCUw6uDiCuoq4XLu2EzCyNEd
TnEEAZmTJvlK2LZT6zgkOQkYDq5LCJMg4TBzUEmMl4B5Hn07C3ESyNu3otcK
EcA+o+vEJUZCBOmqEipMQJex/5tLG0mgF5s18YsSwMxckz+ygYT5CTkuHnEC
Qm1F73eKktBo8uHskjQBse9yWzrXk/DXRA73VVkCjN2rs+ywi29Fx/7aToBy
0gmlUWESkgrPt07LE+Bmu0+aG/vGFkG1EVUCtGun048LkfCzYP7TKTUC3tRy
pM4JkuBs3O8yuJ+AO7su64Rjm97Mju/TIkBi/JxL11oSWGOm/O36BDxR9HII
ZOB8m+iVBhsQILnkMiSPrVWieWG/MQE01me/HjoJFqHyXc/NCFic/MSniT00
K33P/DgBjXdVZn8JkOBuI64lYE1A77OyhSzs2wqrX3jYE9A+N26igC38eMVa
1pGAX6tPJE+vISGWNivU7USAzJ7o9YXYLOexmntnCODoDojyx37d3H9F6zwB
poeW1AywD+zrYM+5EqBZ/31WErshvqE/9QIBl7NZtT/48fN4FOsKeRFgkaRa
HIft3pO1XH2VgAGqsvM69pJ2SpbXDQLerSKFrLCD0p86Ur4EWFsqnkDYwqLh
Yl/8cf5tW2qlsGO9Q+rDbhKQpdpzWACbNeznp3ObgLP8OwZ/8eHnM/BSXrxD
wJ7ZR+HfsLUKXEYyQgkYEZm16cCu3+oYY/+AgFW3SI16bItgSyPRMAJGLf9T
rcEe+mHEXRdOgOBLFd1ybPfjhwpvPMbnKfC9Wyn2ciU6vyuKAPdZr1dl2LdZ
yuRQDAEZ/Ju4q7GFH7HaHscRcL/+uvsH7NglMlg/gYCH9hG87dgsx437aUk4
P7mxgoPY+fWMHzkpeH2dr8IstqYKd6LTSwKmQ0sd+PD+6p8umotnECAy0p22
FduCd1qgMZOAR2+P86v9ia/r93L/HAKWhEqumf+Jb0fvRZV8AuwKfGhX/sRX
o01utICA2hTpx9F/4pv6oSemmIDiT3JaVX/iu67ygVEpASU7+VbG/8T3aoE2
dwUB9bmaH8T+5H8gY76gioBxq79Tdf/kXy8x7dxbvJ/tSRHXsbVyo+y21uJ6
2FoTno1tcfP2+6AGAgzeKJXJ4vM1NOF9Xa2ZAOm7F0ZOYbsdu7RzqhXfr92Q
TMUOkrV/fKyTgPfepa9V8PkVfmCuz99DwA2N3SL+2E/nj9BKewnw1BH2bsLO
q1U7LTNIwEXjNtfLuB40FRUlOr8REMQT/qse++MTuaa7I7ge7K7dlsP1NHBW
RHVmkoDqgXNV37DXMaZ4q34TYNUWEBqE67O5JPjWoSUCyvd9KZ3CfnhWmrth
hYC4vJ8Pjq8jQajWgrNzFQ3CD+iIqOL6FgqsXpqk02DSPu3BOhH8e0XbaxcF
aRAp2lJ4H/th/+/fv9fRwEvqpc9a3E8EQeEX10Ya6POc7hPF/WbtQuSPTUwa
aP66+kUb96fGFCW3OGkavHTK+NKOfd+scVJGlgaX2W1JZzeRwMjjGt9J0UBv
9otZDO5vdDfXbwdVaHAt0aZ8iyQJa75pd184TAPPCXOOONw/Pzzqs5jXp0GK
M1eopTTurweudtwwoMFsvkSimAwJ/M9etd02pUFQjbtnDO6/fFabmp7a0CCZ
L/peFe7fvC1T1XUXaGChbfzpNu7v73zvHDC8RAORAZ9353bhfCnIVLZ50uC1
me4+E0Xc30OPl325ToPpPscoWSUSuA/VFM7dosGU3VOlSfx+WVX6JIMZRQOl
B72800BCp9oBnd4YGjh+yRNbr0lCRuFYX2QcDep2cq3Zq4XPT566kFASjpdH
YlCINgmZab0eRBYN3gsuVJnokmAdxdzb85YGTI7hqXMm+Dx6vagKn6ZBY7VZ
aZ4zCaFzxlZGszQITBQO23WWBPuLizMC8zRQ5oqRyDz3J3762wKXcb6CrhzK
cyXhpNPk7QurOaDKta+77xLO7zHFIwaSHDD/6mZOrj8JZ3YXdaw+zAEiX2um
jj4loazx08vX+hywV7rn6OY4Etafm/I+ZcAB3eHbtg8/I6H0ubRMtSkHxNYI
Cfkn4vMmet/dx5YDSnL3F31KI6Fo3oF/7iIH9KV7CI4X43yU0tUHYvH6+zJp
/3bj9/WhE7FvZjlA/rfCKX0m/j/F2rofzXMA22fvvqvSTHhD7+sqXeCAXelf
6lO3MaGxxUq0nOAEq8ED8gwWE35amYdW8nGCgMbii7HdTNjvbnDt3WZO2Onx
wXD+L7w+cr9Z81+cUD8dqWtwlgkzo2Jrh8I54Qzpci2miAm5xgc5ww6sgiNf
P9iGeUmBt07g05yhVTBYPq58ap80bO3R/Tc+kAuEN02/yOSQgb0qAWEbd3HD
iXe61tOfZcByc8M8rYUbEtIenh9J3QYztXf7XX15wPj6TzDzlYWIVdYeRlK8
IOjvfTURycG6z7nPOKp4QX6zWu6JCTnguu5rouq2GtoVYbwqajsQKdYZ/UJ8
ECdzI1hXYQe4R2bcFargA/e2bVdkS3dAyY4gXsHz/PCoz3r7mb0sENR1Z/nR
10C0YqVkTQyeH6jGFq/iNbBfcOuD24sseBWDpAasBcBhPvrD978omL4yzWNn
JwA8vbF+MwfxfHUsabTHHn9/6HsAcYiCIgYju91JACxq2C7Chymo8fmsUecu
AF/ZdR2KeF7qOnHdJuumAJR0eUkZHqOAe1tRpE+6AJwszV/iOUWBVYayoMSy
AIwGDZy6EIDnM4tf9EaCDmenon45BuL5k7twjT8nHWb8W2rMb1JQZqnO+52X
DhLRfeLqeL4j+Q6s5Kyjw82ES/m/71Aw5GA4ridHB98P3YOG/1BwXuzs+2sm
dBj8HLDBPY4Cn8A43+5UOpjwO10OKqJA4DKPrl0aHY6dHLODYgoinc4JDWXQ
gd3MnTWHnX1YNX4yhw6hfo3+Dm/w9QWbqjhK6aB5wW1auZyCwzEEr1wLHU5b
aiiU1lAgkm8TenGBDh1zar7WTXj+Tq4++nuJDi7RmTc4mylQiNwh6U0woFuQ
PpyEfej6XEYQFwOe22uvTLRQcE3rXtMTBgPuy4toX8LzeH/DG+EKJgM0arnN
T3dRkDYs8YSux4BR1pWp/gEKDFIeXH//NwOkOfcK+w1S8OM0l22AIQMyLObv
bxmiYM/omNTvowwodz4efvwbnkfHi9IH7bD9vra9/47n3x/mFcWXGTB/eLXt
rQkKVhYffXeOZ0BM5jwjaI4CQ0H6nre/GZBUW0u+4GFDMBfHpm7sdrGo7HTs
qvmZpSnssA26B7Kwlft7KsUWGPBNQu1kAbZYdtqR89guZp7P32L3m+ifWr+I
799oKDmA7REREm6/xICvo8G/xHnZkBbi4+WJ7e//I2AL9pCPh+VdbPNmZUEp
bLPTlmQ+dk+4qdwObPW9rHS+ZQZkVY4eU8Xm7q6rzsRePXUl3RQbNZYm12Dv
kkzfY47tWZV9pwvbnu9NhSX2yMsnhlwrDGCIeLTZY9dfP9Njhj3Hp7rohs3j
blN2DruGNAq8iA2OxvF+2KvmD9K9sLP+3nf6JTat/72kD/aoprxeObb5jGmy
P7aUClO+Ddvo3RuFW9jWO0SFRrH3HV9VEIz9P0n+mRVsu3QZjVDs/wMt9xVN

      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 15.5},
  DisplayFunction->Identity,
  PlotRange->{{0, 4}, {15.111175844253667`, 17.125914110393406`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.467400208021324*^9, 3.467400228818729*^9}, {
   3.467401806753812*^9, 3.467401825231566*^9}, 3.4674019689584017`*^9, 
   3.467402139186891*^9, 3.467402194293186*^9, 3.4674022705791483`*^9, 
   3.467403313088077*^9, 3.467405677131386*^9, 3.46745860766999*^9, 
   3.467458856872663*^9, {3.467459863872346*^9, 3.467459893407856*^9}, {
   3.467460028343045*^9, 3.467460044271998*^9}, 3.467460110420808*^9, 
   3.467460881123699*^9, {3.4674609354542103`*^9, 3.467460951336432*^9}, 
   3.4674610171571913`*^9, 3.467461160980579*^9, {3.4674612465992317`*^9, 
   3.467461293389735*^9}, 3.46746147026502*^9, 3.467462290494022*^9, 
   3.467462333738751*^9, 3.467462396434224*^9, {3.467464344220459*^9, 
   3.467464361184091*^9}, 3.4674645009965*^9, 3.467465071966456*^9, 
   3.467467138722001*^9, 3.4674786066811533`*^9, 3.467479592085585*^9, 
   3.467480321516694*^9, 3.467480451028105*^9, 3.46748079793591*^9, 
   3.4674808300002213`*^9, 3.467482814553454*^9, 3.467483057927095*^9, 
   3.467483491288652*^9, 3.4674835265431004`*^9, 3.4674835712634897`*^9, 
   3.4674836903103247`*^9, {3.4675792720218897`*^9, 3.4675793245858803`*^9}, 
   3.46757947920603*^9, 3.46758067406468*^9, 3.467580822641858*^9, {
   3.467580967437091*^9, 3.467581015116157*^9}, 3.467581095020904*^9, 
   3.467581508668949*^9, 3.467581547208926*^9, 3.46758274620327*^9, 
   3.467583056400243*^9, 3.467583091354588*^9, 3.467583479543808*^9, 
   3.467584084476872*^9, 3.467584149864945*^9, 3.46758425286695*^9, 
   3.4675843227990932`*^9, 3.4675844772350407`*^9, {3.467584547421075*^9, 
   3.467584559013462*^9}, {3.467584606457282*^9, 3.46758464082533*^9}, {
   3.46758467918598*^9, 3.467584700424111*^9}, 3.467584732211088*^9, 
   3.467584809261393*^9, {3.4675848639204493`*^9, 3.467584875125538*^9}, {
   3.467585384526593*^9, 3.467585399225974*^9}, 3.467632233095434*^9, 
   3.467632369228805*^9, {3.467632434255093*^9, 3.467632477061225*^9}, 
   3.467632534179681*^9, 3.467652529936441*^9, 3.468590123181076*^9, 
   3.468593542296441*^9, 3.468593955427764*^9, 3.468594455090699*^9, {
   3.468594515991889*^9, 3.468594541073823*^9}, 3.468594671779516*^9, 
   3.468594720815921*^9, 3.46867373926055*^9, 3.468673803986596*^9, 
   3.468673839570578*^9, 3.4686739575001783`*^9, 3.4686753164931803`*^9, 
   3.46867841606458*^9, 3.468678538219779*^9, {3.468678767688879*^9, 
   3.468678783333589*^9}, 3.469193248151084*^9, 3.4691934128574133`*^9, 
   3.46919372206645*^9, 3.4691937648471107`*^9, 3.469193825359993*^9, {
   3.4691959818223248`*^9, 3.469196023005878*^9}, 3.46947998233252*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kinePlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"kineEnergy", "[", "All", "]"}], "/.", "sol"}], ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", " ", "0", ",", "0"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"springPlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"springEnergy", "[", "T", "]"}], "/.", "sol"}], ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", " ", "0", ",", "1"}], "]"}], ",", "Dashed"}], 
       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totPlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kineEnergy", "[", "T", "]"}], "+", 
        RowBox[{"springEnergy", "[", "T", "]"}]}], ")"}], "/.", "sol"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "simDuration"}], "}"}], ",", 
     RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", " ", "0", ",", "0"}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"springPlot", ",", "kinePlot", ",", "totPlot", ",", 
   RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.467380128503154*^9, 3.46738021298289*^9}, {
   3.467380314590437*^9, 3.467380315308406*^9}, {3.467382364402763*^9, 
   3.4673824122193317`*^9}, {3.4673892904219227`*^9, 3.467389291363956*^9}, {
   3.467389520441621*^9, 3.467389522391685*^9}, 3.467391850275475*^9, {
   3.4673918920218353`*^9, 3.4673919436225557`*^9}, {3.467391995851313*^9, 
   3.467391996329238*^9}, {3.467392949709693*^9, 3.467392962532427*^9}, {
   3.4673971201526527`*^9, 3.467397141279652*^9}, {3.46739960082768*^9, 
   3.467399732105854*^9}, {3.467399779022285*^9, 3.467399798829466*^9}, {
   3.467399829904965*^9, 3.467399856984413*^9}, {3.467399895044532*^9, 
   3.467400014498322*^9}, {3.4674001914526463`*^9, 3.4674002059795113`*^9}, {
   3.467401679815247*^9, 3.4674017713334627`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   GraphicsComplexBox[{{8.163265306122448*^-8, 0.}, {0.0785146448061216, 
    0.}, {0.16363342834183459`, 0.}, {0.24311153428060836`, 0.}, {
    0.3210305952755042, 0.}, {0.40555387663264447`, 0.}, {
    0.48443648039284554`, 0.}, {0.5699233045152912, 0.}, {0.6538510836938587, 
    0.}, {0.732138185275487, 0.}, {0.8170295072193599, 0.}, {
    0.8962801515662935, 0.}, {0.9739717509693491, 0.}, {1.0582675707346494`, 
    0.}, {1.1369227129030104`, 0.}, {1.222182075433616, 0.}, {
    1.3058823930203434`, 0.}, {1.3839420330101317`, 0.}, {1.4686058933621644`,
     0.}, {1.547629076117258, 0.}, {1.633256479234596, 0.}, {
    1.717324837408056, 0.}, {1.795752517984577, 0.}, {1.8807844189233422`, 
    0.}, {1.9601756422651684`, 0.}, {2.0380078206631165`, 0.}, {
    2.122444219423309, 0.}, {2.2012399405865626`, 0.}, {2.2866398821120604`, 
    0.}, {2.3704807786936803`, 0.}, {2.4486809976783612`, 0.}, {
    2.5334854370252864`, 0.}, {2.6126491987752725`, 0.}, {2.6902539155813803`,
     0.}, {2.774462852749733, 0.}, {2.853031112321146, 0.}, {
    2.9382035922548035`, 0.}, {3.017735394591522, 0.}, {3.0957081519843626`, 
    0.}, {3.1802851297394477`, 0.}, {3.2592214298975932`, 0.}, {
    3.3447619504179835`, 0.}, {3.428743425994496, 0.}, {3.507084223974069, 
    0.}, {3.5920292423158866`, 0.}, {3.6713335830607647`, 0.}, {
    3.749078878861765, 0.}, {3.8334283950250096`, 0.}, {3.912137233591315, 
    0.}, {3.9974502925198654`, 0.}, {3.999999918367347, 0.}}, {}], 
   GraphicsComplexBox[{{8.163265306122448*^-8, 0.}, {0.0785146448061216, 
    0.}, {0.16363342834183459`, 0.}, {0.24311153428060836`, 0.}, {
    0.3210305952755042, 0.}, {0.40555387663264447`, 0.}, {
    0.48443648039284554`, 0.}, {0.5699233045152912, 0.}, {0.6538510836938587, 
    0.}, {0.732138185275487, 0.}, {0.8170295072193599, 0.}, {
    0.8962801515662935, 0.}, {0.9739717509693491, 0.}, {1.0582675707346494`, 
    0.}, {1.1369227129030104`, 0.}, {1.222182075433616, 0.}, {
    1.3058823930203434`, 0.}, {1.3839420330101317`, 0.}, {1.4686058933621644`,
     0.}, {1.547629076117258, 0.}, {1.633256479234596, 0.}, {
    1.717324837408056, 0.}, {1.795752517984577, 0.}, {1.8807844189233422`, 
    0.}, {1.9601756422651684`, 0.}, {2.0380078206631165`, 0.}, {
    2.122444219423309, 0.}, {2.2012399405865626`, 0.}, {2.2866398821120604`, 
    0.}, {2.3704807786936803`, 0.}, {2.4486809976783612`, 0.}, {
    2.5334854370252864`, 0.}, {2.6126491987752725`, 0.}, {2.6902539155813803`,
     0.}, {2.774462852749733, 0.}, {2.853031112321146, 0.}, {
    2.9382035922548035`, 0.}, {3.017735394591522, 0.}, {3.0957081519843626`, 
    0.}, {3.1802851297394477`, 0.}, {3.2592214298975932`, 0.}, {
    3.3447619504179835`, 0.}, {3.428743425994496, 0.}, {3.507084223974069, 
    0.}, {3.5920292423158866`, 0.}, {3.6713335830607647`, 0.}, {
    3.749078878861765, 0.}, {3.8334283950250096`, 0.}, {3.912137233591315, 
    0.}, {3.9974502925198654`, 0.}, {3.999999918367347, 0.}}, {}], 
   GraphicsComplexBox[{{8.163265306122448*^-8, 0.}, {0.0785146448061216, 
    0.}, {0.16363342834183459`, 0.}, {0.24311153428060836`, 0.}, {
    0.3210305952755042, 0.}, {0.40555387663264447`, 0.}, {
    0.48443648039284554`, 0.}, {0.5699233045152912, 0.}, {0.6538510836938587, 
    0.}, {0.732138185275487, 0.}, {0.8170295072193599, 0.}, {
    0.8962801515662935, 0.}, {0.9739717509693491, 0.}, {1.0582675707346494`, 
    0.}, {1.1369227129030104`, 0.}, {1.222182075433616, 0.}, {
    1.3058823930203434`, 0.}, {1.3839420330101317`, 0.}, {1.4686058933621644`,
     0.}, {1.547629076117258, 0.}, {1.633256479234596, 0.}, {
    1.717324837408056, 0.}, {1.795752517984577, 0.}, {1.8807844189233422`, 
    0.}, {1.9601756422651684`, 0.}, {2.0380078206631165`, 0.}, {
    2.122444219423309, 0.}, {2.2012399405865626`, 0.}, {2.2866398821120604`, 
    0.}, {2.3704807786936803`, 0.}, {2.4486809976783612`, 0.}, {
    2.5334854370252864`, 0.}, {2.6126491987752725`, 0.}, {2.6902539155813803`,
     0.}, {2.774462852749733, 0.}, {2.853031112321146, 0.}, {
    2.9382035922548035`, 0.}, {3.017735394591522, 0.}, {3.0957081519843626`, 
    0.}, {3.1802851297394477`, 0.}, {3.2592214298975932`, 0.}, {
    3.3447619504179835`, 0.}, {3.428743425994496, 0.}, {3.507084223974069, 
    0.}, {3.5920292423158866`, 0.}, {3.6713335830607647`, 0.}, {
    3.749078878861765, 0.}, {3.8334283950250096`, 0.}, {3.912137233591315, 
    0.}, {3.9974502925198654`, 0.}, {3.999999918367347, 0.}}, {}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  PlotRange->{{0, 4}, {0., 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.467400208021324*^9, 3.467400228818729*^9}, 
   3.4674017437049007`*^9, 3.467401774511723*^9, 3.467401969988253*^9, 
   3.467402218075515*^9, 3.46740227091306*^9, 3.467403313390634*^9, 
   3.467458608259968*^9, 3.4674588583301897`*^9, 3.467460881519546*^9, {
   3.4674609357458572`*^9, 3.4674609516346893`*^9}, 3.4674610174679527`*^9, 
   3.467461161942976*^9, {3.467461247003385*^9, 3.4674612937483683`*^9}, 
   3.467461470462182*^9, 3.4674622912643347`*^9, 3.4674623338910637`*^9, 
   3.467462396592043*^9, 3.467464344415601*^9, 3.467467139074297*^9, 
   3.467478607019105*^9, 3.467479592455966*^9, 3.467480321814727*^9, 
   3.467480451326605*^9, 3.46748079819102*^9, 3.467480830254726*^9, 
   3.467482815293605*^9, 3.467483058085022*^9, 3.467483492571372*^9, 
   3.467483527723151*^9, 3.467483571664217*^9, 3.467483690451747*^9, {
   3.467579273205955*^9, 3.467579325753793*^9}, 3.467579493163269*^9, 
   3.467580674137946*^9, 3.467581508829062*^9, 3.4675815472838697`*^9, 
   3.467582746271132*^9, 3.467583056578184*^9, 3.467583091504326*^9, 
   3.467583479634719*^9, 3.4675840845773277`*^9, 3.467584149931426*^9, 
   3.467584252928011*^9, 3.467584322862275*^9, 3.467584477299089*^9, {
   3.467584613363449*^9, 3.467584640907756*^9}, {3.4675846792042027`*^9, 
   3.46758470049223*^9}, 3.467584732278488*^9, 3.4675848093868713`*^9, 
   3.4676322332448378`*^9, 3.467632369290504*^9, {3.467632434318931*^9, 
   3.467632477123023*^9}, 3.467632534255103*^9, 3.467652530000947*^9, 
   3.468590123244998*^9, 3.468593542358981*^9, 3.468593955559475*^9, 
   3.468594455144964*^9, {3.4685945160466423`*^9, 3.4685945411173573`*^9}, 
   3.468594671825674*^9, 3.468594720878498*^9, 3.4686737393299313`*^9, 
   3.468673804053258*^9, 3.468673839654786*^9, 3.468673957644053*^9, 
   3.46867531667446*^9, 3.468678416131969*^9, 3.46867853835861*^9, {
   3.468678767745474*^9, 3.468678783394278*^9}, 3.469193248315826*^9, 
   3.4691934129917927`*^9, 3.469193722408885*^9, 3.469193764949524*^9, 
   3.469193825421337*^9, 3.4691959818874817`*^9, 3.4694799823970118`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Export data", "Subsection",
 CellChangeTimes->{{3.434122912094719*^9, 3.434122914413233*^9}, {
  3.4343018107259912`*^9, 3.4343018122138433`*^9}, {3.466853126250345*^9, 
  3.466853131141144*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P1", " ", "on", " ", "carpus"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"carp1Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</carpusP1.mat\>\""}], "]"}], ",", 
      "carp1Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P2", " ", "on", " ", "carpus"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"carp2Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"carpus", ",", "2"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</carpusP2.mat\>\""}], "]"}], ",", 
      "carp2Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966543436351*^9, 3.466966568564617*^9}, {3.466966636753187*^9, 
   3.466966639296421*^9}, {3.466966682819511*^9, 3.466966689882691*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P1", " ", "on", " ", "ground"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gnd1Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"ground", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</groundP1.mat\>\""}], "]"}], ",", 
      "gnd1Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966543436351*^9, 3.466966624418126*^9}, {3.4669666559854813`*^9, 
   3.466966697243207*^9}, {3.466967039391535*^9, 3.466967045957535*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P1", " ", "on", " ", "mV"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"mV1Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"mV", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.", 
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</mVP1.mat\>\""}], "]"}], ",", 
      "mV1Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}, {3.46696671804352*^9, 3.466966777316327*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"P1", " ", "on", " ", "dactyl"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dac1Kine", "=", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Location", "[", 
              RowBox[{"Point", "[", 
               RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
             
            RowBox[{"{", 
             RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
         ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Velocity", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", "sT"}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Acceleration", "[", 
               RowBox[{"Point", "[", 
                RowBox[{"dactyl", ",", "1"}], "]"}], "]"}], "/.", "sol"}], "/.",
              
             RowBox[{"{", 
              RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sL"}], 
          " ", "*", " ", 
          RowBox[{"sT", "^", "2"}]}], ")"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</dactylP1.mat\>\""}], "]"}], ",", 
      "dac1Kine", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}, {3.466966783385257*^9, 3.4669668323144417`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Moment", " ", "from", " ", "spring"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"springM", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"springMoment", "\[IndentingNewLine]", "/.", "sol"}], "/.", 
          
          RowBox[{"{", 
           RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], "/", "sM"}], 
       "/", 
       RowBox[{"sL", "^", "2"}]}], "*", 
      RowBox[{"sT", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</springMoment.mat\>\""}], "]"}], 
      ",", "springM", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.467035677730645*^9, 3.467035721146905*^9}, 
   3.4670486694448957`*^9, {3.467051306809559*^9, 3.467051394920734*^9}, {
   3.4670515167270947`*^9, 3.467051528688052*^9}, {3.467467423413453*^9, 
   3.467467506005204*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Moment", " ", "from", " ", "drag"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dragM", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"dragMoment", "\[IndentingNewLine]", "/.", "sol"}], "/.", 
          RowBox[{"{", 
           RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ")"}], " ", "/", 
        "sM"}], "/", 
       RowBox[{"sL", "^", "2"}]}], "*", 
      RowBox[{"sT", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"StringJoin", "[", 
       RowBox[{"currPath", ",", " ", "\"\</dragMoment.mat\>\""}], "]"}], ",", 
      "dragM", ",", "\"\<MAT\>\""}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.467035677730645*^9, 3.467035764556779*^9}, {
   3.4670514147874107`*^9, 3.4670514364271917`*^9}, 3.46705150142057*^9, {
   3.467051535425043*^9, 3.467051552377322*^9}, {3.467467460931978*^9, 
   3.467467509773467*^9}, {3.467467550753574*^9, 3.467467553215448*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"mV", " ", "angle"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"currPath", ",", " ", "\"\</mvAng.mat\>\""}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Angle", "[", 
        RowBox[{"mV", ",", "1"}], "]"}], "/.", "sol"}], "/.", 
      RowBox[{"{", 
       RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ",", "\"\<MAT\>\""}], 
    "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}, {3.4686786050973787`*^9, 3.468678709448306*^9}, {
   3.468678822886895*^9, 3.468678879878577*^9}, {3.468678930430963*^9, 
   3.4686789462928762`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"dactyl", " ", "angle"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"currPath", ",", " ", "\"\</dacAng.mat\>\""}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Angle", "[", 
        RowBox[{"mV", ",", "1"}], "]"}], "/.", "sol"}], "/.", 
      RowBox[{"{", 
       RowBox[{"T", "\[Rule]", "tEval"}], "}"}]}], ",", "\"\<MAT\>\""}], 
    "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.466964655922216*^9, 3.466964665891347*^9}, {
   3.466964717806665*^9, 3.4669647236786947`*^9}, {3.466964779235764*^9, 
   3.4669647820415487`*^9}, {3.466964825013689*^9, 3.466964851957603*^9}, {
   3.466964890241397*^9, 3.466964914056921*^9}, {3.466964968277487*^9, 
   3.4669650223113213`*^9}, {3.4669661929272623`*^9, 3.466966213326494*^9}, {
   3.466966246146299*^9, 3.466966258126952*^9}, {3.4669663060682793`*^9, 
   3.466966364297764*^9}, 3.466966405981435*^9, {3.466966453666606*^9, 
   3.466966479631865*^9}, {3.466966510113277*^9, 3.466966510472995*^9}, {
   3.466966559428815*^9, 3.46696656209191*^9}, {3.466966629353776*^9, 
   3.4669666321040916`*^9}, {3.4686786050973787`*^9, 3.468678709448306*^9}, {
   3.468678746164011*^9, 3.468678773619689*^9}, {3.4686788202242002`*^9, 
   3.468678820646262*^9}, {3.468678856576383*^9, 3.468678858816276*^9}, {
   3.468678951709503*^9, 3.4686789572941113`*^9}}]
}, Open  ]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1203, 1901},
WindowMargins->{{-1203, Automatic}, {Automatic, -318}},
ShowSelection->True,
Magnification->1.25,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 644, 9, 83, "Section"],
Cell[CellGroupData[{
Cell[1259, 36, 152, 5, 33, "Input"],
Cell[1414, 43, 121, 1, 32, "Text"],
Cell[1538, 46, 541, 12, 47, "Input"],
Cell[2082, 60, 616, 14, 58, "Input"],
Cell[2701, 76, 160, 3, 32, "Text"],
Cell[2864, 81, 394, 8, 33, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3295, 94, 172, 3, 33, "Input"],
Cell[3470, 99, 753, 21, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4260, 125, 188, 4, 33, "Input"],
Cell[4451, 131, 566, 17, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5054, 153, 1645, 43, 72, "Input"],
Cell[6702, 198, 11046, 189, 309, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17785, 392, 1515, 42, 72, "Input"],
Cell[19303, 436, 22259, 373, 292, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[41611, 815, 593, 8, 45, "Section"],
Cell[CellGroupData[{
Cell[42229, 827, 898, 22, 53, "Input"],
Cell[43130, 851, 688, 13, 26, "Message"]
}, Open  ]],
Cell[43833, 867, 616, 14, 33, "Input"],
Cell[CellGroupData[{
Cell[44474, 885, 1342, 34, 42, "Input"],
Cell[45819, 921, 393, 10, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46249, 936, 145, 3, 33, "Input"],
Cell[46397, 941, 552, 15, 74, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46986, 961, 237, 5, 33, "Input"],
Cell[47226, 968, 456, 14, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47719, 987, 210, 5, 33, "Input"],
Cell[47932, 994, 484, 14, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48453, 1013, 167, 5, 33, "Input"],
Cell[48623, 1020, 247, 4, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48907, 1029, 379, 11, 68, "Input"],
Cell[49289, 1042, 186, 3, 33, "Output"]
}, Open  ]],
Cell[49490, 1048, 492, 10, 33, "Input"],
Cell[CellGroupData[{
Cell[50007, 1062, 488, 11, 33, "Input"],
Cell[50498, 1075, 5931, 103, 281, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[56478, 1184, 647, 9, 83, "Section"],
Cell[CellGroupData[{
Cell[57150, 1197, 898, 22, 53, "Input"],
Cell[58051, 1221, 758, 14, 26, "Message"]
}, Open  ]],
Cell[58824, 1238, 705, 15, 33, "Input"],
Cell[CellGroupData[{
Cell[59554, 1257, 1709, 41, 42, "Input"],
Cell[61266, 1300, 510, 10, 47, "Message"],
Cell[61779, 1312, 402, 8, 26, "Message"],
Cell[62184, 1322, 552, 10, 26, "Message"],
Cell[62739, 1334, 432, 9, 26, "Message"],
Cell[63174, 1345, 432, 9, 26, "Message"],
Cell[63609, 1356, 432, 9, 26, "Message"],
Cell[64044, 1367, 465, 9, 26, "Message"],
Cell[64512, 1378, 432, 9, 26, "Message"],
Cell[64947, 1389, 432, 9, 26, "Message"],
Cell[65382, 1400, 432, 9, 26, "Message"],
Cell[65817, 1411, 465, 9, 26, "Message"],
Cell[66285, 1422, 552, 10, 26, "Message"],
Cell[66840, 1434, 552, 10, 26, "Message"],
Cell[67395, 1446, 552, 10, 26, "Message"],
Cell[67950, 1458, 458, 9, 26, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68445, 1472, 492, 11, 33, "Input"],
Cell[68940, 1485, 8867, 149, 284, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[77856, 1640, 795, 10, 45, "Section"],
Cell[CellGroupData[{
Cell[78676, 1654, 898, 22, 53, "Input"],
Cell[79577, 1678, 1072, 18, 26, "Message"]
}, Open  ]],
Cell[80664, 1699, 1600, 29, 72, "Input"],
Cell[82267, 1730, 2364, 51, 66, "Input"],
Cell[84634, 1783, 1018, 30, 42, "Input"],
Cell[CellGroupData[{
Cell[85677, 1817, 607, 14, 33, "Input"],
Cell[86287, 1833, 14185, 239, 291, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100509, 2077, 631, 15, 33, "Input"],
Cell[101143, 2094, 21734, 362, 284, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122914, 2461, 497, 12, 33, "Input"],
Cell[123414, 2475, 2462, 46, 284, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[125925, 2527, 756, 10, 83, "Section"],
Cell[CellGroupData[{
Cell[126706, 2541, 898, 22, 53, "Input"],
Cell[127607, 2565, 1371, 22, 26, "Message"]
}, Open  ]],
Cell[128993, 2590, 1145, 25, 72, "Input"],
Cell[130141, 2617, 808, 22, 87, "Input"],
Cell[130952, 2641, 924, 17, 33, "Input"],
Cell[131879, 2660, 691, 18, 53, "Input"],
Cell[132573, 2680, 4411, 96, 191, "Input"],
Cell[CellGroupData[{
Cell[137009, 2780, 293, 7, 33, "Input"],
Cell[137305, 2789, 194, 3, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137536, 2797, 584, 14, 33, "Input"],
Cell[138123, 2813, 2614, 49, 290, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140786, 2868, 554, 10, 83, "Section"],
Cell[CellGroupData[{
Cell[141365, 2882, 278, 4, 42, "Subsection"],
Cell[CellGroupData[{
Cell[141668, 2890, 949, 27, 72, "Input"],
Cell[142620, 2919, 2450, 37, 87, "Message"]
}, Open  ]]
}, Open  ]],
Cell[145097, 2960, 545, 13, 91, "Input"],
Cell[CellGroupData[{
Cell[145667, 2977, 34, 0, 33, "Input"],
Cell[145704, 2979, 585, 10, 33, "Output"]
}, Open  ]],
Cell[146304, 2992, 619, 13, 33, "Input"],
Cell[146926, 3007, 689, 14, 33, "Input"],
Cell[147618, 3023, 3505, 93, 433, "Input"],
Cell[151126, 3118, 131, 2, 33, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[151294, 3125, 604, 11, 45, "Section"],
Cell[CellGroupData[{
Cell[151923, 3140, 898, 22, 53, "Input"],
Cell[152824, 3164, 4375, 64, 26, "Message"]
}, Open  ]],
Cell[157214, 3231, 2979, 58, 149, "Input"],
Cell[160196, 3291, 653, 17, 53, "Input"],
Cell[160852, 3310, 315, 9, 57, "Input"],
Cell[161170, 3321, 1215, 22, 53, "Input"],
Cell[162388, 3345, 707, 15, 57, "Input"],
Cell[163098, 3362, 429, 13, 57, "Input"],
Cell[163530, 3377, 423, 13, 53, "Input"],
Cell[163956, 3392, 394, 11, 53, "Input"],
Cell[164353, 3405, 357, 9, 53, "Input"],
Cell[164713, 3416, 1594, 32, 62, "Input"],
Cell[166310, 3450, 1070, 21, 53, "Input"],
Cell[167383, 3473, 357, 10, 53, "Input"],
Cell[167743, 3485, 865, 17, 53, "Input"],
Cell[168611, 3504, 590, 16, 53, "Input"],
Cell[169204, 3522, 427, 11, 53, "Input"],
Cell[169634, 3535, 354, 10, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170025, 3550, 386, 5, 83, "Section"],
Cell[CellGroupData[{
Cell[170436, 3559, 415, 5, 42, "Subsection"],
Cell[170854, 3566, 347, 8, 51, "Text"],
Cell[171204, 3576, 760, 15, 72, "Input"],
Cell[171967, 3593, 3986, 99, 582, "Input"],
Cell[175956, 3694, 821, 13, 53, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[176814, 3712, 465, 6, 31, "Subsection"],
Cell[177282, 3720, 264, 7, 70, "Text"],
Cell[177549, 3729, 3790, 92, 282, "Input"],
Cell[181342, 3823, 277, 7, 70, "Text"],
Cell[CellGroupData[{
Cell[181644, 3834, 488, 8, 33, "Input"],
Cell[182135, 3844, 4855, 67, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187027, 3916, 526, 9, 33, "Input"],
Cell[187556, 3927, 4857, 67, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192450, 3999, 120, 2, 33, "Input"],
Cell[192573, 4003, 94, 1, 33, "Output"]
}, Open  ]],
Cell[192682, 4007, 191, 6, 70, "Text"],
Cell[192876, 4015, 4317, 95, 376, "Input"],
Cell[197196, 4112, 311, 5, 33, "Input"],
Cell[CellGroupData[{
Cell[197532, 4121, 475, 14, 72, "Input"],
Cell[198010, 4137, 793, 11, 33, "Output"]
}, Open  ]],
Cell[198818, 4151, 229, 7, 70, "Text"],
Cell[199050, 4160, 763, 13, 33, "Input"],
Cell[199816, 4175, 238, 7, 70, "Text"],
Cell[CellGroupData[{
Cell[200079, 4186, 7448, 189, 471, "Input"],
Cell[207530, 4377, 7330, 125, 467, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[214909, 4508, 126, 2, 42, "Subsection"],
Cell[215038, 4512, 1340, 27, 129, "Input"],
Cell[216381, 4541, 1307, 28, 148, "Input"],
Cell[217691, 4571, 2781, 51, 167, "Input"],
Cell[220475, 4624, 1656, 34, 186, "Input"],
Cell[222134, 4660, 1362, 22, 33, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[223533, 4687, 356, 5, 31, "Subsection"],
Cell[223892, 4694, 270, 6, 51, "Text"],
Cell[224165, 4702, 638, 14, 33, "Input"],
Cell[224806, 4718, 275, 6, 51, "Text"],
Cell[225084, 4726, 1162, 19, 33, "Input"],
Cell[226249, 4747, 171, 5, 51, "Text"],
Cell[226423, 4754, 788, 16, 33, "Input"],
Cell[227214, 4772, 185, 5, 51, "Text"],
Cell[227402, 4779, 772, 16, 33, "Input"],
Cell[228177, 4797, 117, 4, 51, "Text"],
Cell[228297, 4803, 447, 11, 33, "Input"],
Cell[228747, 4816, 125, 4, 51, "Text"],
Cell[228875, 4822, 338, 8, 33, "Input"],
Cell[229216, 4832, 568, 12, 33, "Input"],
Cell[CellGroupData[{
Cell[229809, 4848, 380, 7, 33, "Input"],
Cell[230192, 4857, 2840, 40, 70, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[233081, 4903, 457, 6, 31, "Subsection"],
Cell[233541, 4911, 822, 14, 70, "Text"],
Cell[CellGroupData[{
Cell[234388, 4929, 5462, 120, 379, "Input"],
Cell[239853, 5051, 5491, 84, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245381, 5140, 626, 14, 33, "Input"],
Cell[246010, 5156, 4011, 56, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[250070, 5218, 422, 6, 31, "Subsection"],
Cell[250495, 5226, 172, 5, 51, "Text"],
Cell[250670, 5233, 1961, 47, 72, "Input"],
Cell[252634, 5282, 1335, 21, 33, "Input"],
Cell[253972, 5305, 107, 4, 51, "Text"],
Cell[254082, 5311, 755, 12, 32, "Text"],
Cell[254840, 5325, 736, 14, 33, "Input"],
Cell[255579, 5341, 172, 2, 32, "Text"],
Cell[255754, 5345, 354, 10, 33, "Input"],
Cell[256111, 5357, 558, 10, 33, "Input"],
Cell[CellGroupData[{
Cell[256694, 5371, 249, 5, 33, "Input"],
Cell[256946, 5378, 2954, 41, 70, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[259949, 5425, 495, 7, 31, "Subsection"],
Cell[260447, 5434, 190, 2, 32, "Text"],
Cell[260640, 5438, 262, 5, 32, "Text"],
Cell[260905, 5445, 1481, 30, 72, "Input"],
Cell[262389, 5477, 119, 2, 32, "Text"],
Cell[262511, 5481, 1630, 28, 91, "Input"],
Cell[264144, 5511, 1386, 25, 145, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[265567, 5541, 177, 2, 31, "Subsection"],
Cell[CellGroupData[{
Cell[265769, 5547, 430, 10, 72, "Input"],
Cell[266202, 5559, 4699, 67, 70, "Output"],
Cell[270904, 5628, 6820, 139, 70, "Output"],
Cell[277727, 5769, 7102, 143, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284866, 5917, 122, 2, 33, "Input"],
Cell[284991, 5921, 4771, 80, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[289799, 6006, 398, 8, 33, "Input"],
Cell[290200, 6016, 2609, 37, 70, "Output"],
Cell[CellGroupData[{
Cell[292834, 6057, 2217, 37, 33, "Input"],
Cell[295054, 6096, 2877, 43, 70, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[297992, 6146, 199, 3, 31, "Subsection"],
Cell[298194, 6151, 3767, 81, 149, "Code"],
Cell[CellGroupData[{
Cell[301986, 6236, 149, 2, 33, "Input"],
Cell[302138, 6240, 309, 6, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302484, 6251, 573, 13, 33, "Input"],
Cell[303060, 6266, 6312, 100, 558, "Output"]
}, Open  ]],
Cell[309387, 6369, 395, 7, 32, "Text"],
Cell[CellGroupData[{
Cell[309807, 6380, 613, 15, 33, "Input"],
Cell[310423, 6397, 2737, 51, 118, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[313209, 6454, 154, 2, 42, "Subsection"],
Cell[CellGroupData[{
Cell[313388, 6460, 1062, 20, 33, "Input"],
Cell[314453, 6482, 9936, 166, 290, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324426, 6653, 372, 8, 33, "Input"],
Cell[324801, 6663, 2389, 34, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[327227, 6702, 1143, 22, 33, "Input"],
Cell[328373, 6726, 10744, 173, 292, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[339154, 6904, 1197, 23, 33, "Input"],
Cell[340354, 6929, 7480, 120, 288, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[347871, 7054, 968, 18, 33, "Input"],
Cell[348842, 7074, 10044, 160, 305, "Output"]
}, Open  ]]
}, Open  ]],
Cell[358913, 7238, 69, 1, 33, "Input"],
Cell[CellGroupData[{
Cell[359007, 7243, 198, 3, 42, "Subsection"],
Cell[359208, 7248, 1081, 16, 32, "Text"],
Cell[360292, 7266, 750, 16, 33, "Input"],
Cell[361045, 7284, 798, 21, 53, "Input"],
Cell[361846, 7307, 410, 5, 32, "Text"],
Cell[362259, 7314, 1360, 28, 53, "Input"],
Cell[363622, 7344, 380, 7, 33, "Input"],
Cell[CellGroupData[{
Cell[364027, 7355, 1231, 29, 53, "Input"],
Cell[365261, 7386, 4552, 75, 301, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[369850, 7466, 2759, 57, 110, "Input"],
Cell[372612, 7525, 29576, 488, 286, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402225, 8018, 2602, 61, 129, "Input"],
Cell[404830, 8081, 6789, 102, 285, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[411668, 8189, 201, 3, 42, "Subsection"],
Cell[411872, 8194, 4328, 116, 205, "Input"],
Cell[416203, 8312, 4373, 116, 205, "Input"],
Cell[420579, 8430, 4373, 116, 205, "Input"],
Cell[424955, 8548, 4252, 109, 186, "Input"],
Cell[429210, 8659, 4374, 116, 205, "Input"],
Cell[433587, 8777, 1072, 29, 91, "Input"],
Cell[434662, 8808, 1102, 28, 91, "Input"]
}, Open  ]],
Cell[435779, 8839, 1350, 27, 53, "Input"],
Cell[437132, 8868, 1453, 28, 53, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
